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Dialog Boxes 



A Oialog Box on the Lisa Is a special vlndov •hich, •hen 
displayed. Is as wide as the screen, and hangs down right 
below the menu bar. 

Dialog boxes can be used as alternatives to menu commands 
•hen an application needs to gather more detail from Its 
user than can be conveniently packaged In a menu. 

A ToolKlt application can put up a Dialog Box any time Its 
•Indov Is active. The Dialog Building Block provides basic 
structures sufficient to define dialogs, to display them, 
to specify special behaviour within them, and to 
interrogate them. 

Read No Further 

The intended audience for this document is current or 
prospective direct users of the Dialog Building Block. A 
basic familiarity with the ideas behind the ToolKlt and the 
CLASCAL language is assumed. ToolKlt jargon is unavoidable 
in a document such as this. 



Companion Documentation 



The primary documentation for the Dialog Building Block 
consists of three parts. I list them here in descending 
order of importance and authority. 

[a] The source listing of the INTERFACE of UDialog 

[b] The source listings of the ToolKlt sample programs, 

USampie and usamDlalog. 

[c] This document, plus subsequent addenda/errata. 

How To Do It 

Simple use of the Dialog Building Block Involves allocating 
a TDlalogvindo*, installing a TDlalog, and adding dialog 
components (dlaloglmages) to the dialog to define its 
display and behaviour . 

In a typical dialog Box, an Application and its user agree 
that whatever the user does up in the dialog box is not s f or 
real" until the OK button (or some other action button) is 
pressed. 

Each standard kind of dialog component carries with it some 
basic assumptions about mouse- and cursor-behaviour. It Is 
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an inherent property of the TCluster component, for 
example, that one and only one of its checkboxes is selected 
at any one moment. You do not program this behaviour--you 
select it by the very act of choosing to use a TCluster 
component. 

Thus, an application typically defines the form and 
behaviour of a dialog box t)y the simple act of allocating 
its components. The real action, whereby the Application 
actually does something to its data structures, is 
precipitated by the user's pressing a Button in the dialog. 

The Application is able to capture control at 
button-pushing time in either of two ways: [a] By 
redefining TDialog.ButtonPushed, or [b] by associating a 
command number with a button, and then fielding that 
command in the NewCommand methods of its subclasses of 
either TSelection or TWindow. 



Formally, a Dialog is an object which resides in a 
Dialogview, which in turn is installed in some panel of some 
window. Beginning users may think of the Dialog, the 
Dialogview, and the DialogWindow as confusingly 
overlapping in function. It is hoped the explanations 
below, combined with the streamlined functionality of the 
NewStdDialogWindow procedure, will let the novice user get 
things done efficiently even before it is obvious what is 
going on. 



Each dialog box you use will involve at least objects of the 
following classes: 

[1] TDlalogwindow: its Window. You usually create an 
Instance of this class (rather than define a subclass), 
and this is most expeditiously done by calling the 
global function NewStdDialogWindow, in which case you 
also get a panel, a pane, and a dialogview all allocated 
and properly installed. 

[2] TPanel: the Panel in which the dialog takes place; no 
easy way to subclass this, nor any clear justification 
for wanting to do so. You get a panel for free if you use 
NewStdDialogWindow; otherwise, you need to allocate an 
instance of TPanel yourself, in which case you can have 
more control over its properties than the 
NewStdDialogWindow function affords. 

[3] TPane: the Pane within the Panel. Allocated 
automatically when the panel is created. 

[4] TDialogView: the view installed in the panel. This 
is created automatically for you if you use 
NewStdDialogWindow. 

[5] TDlalog: A Dialog Installed in the dialogview. You 
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define either en instance of this class or else a 
subclass of it. More than one Dialog can be installed in 
the same dialogView (likely to be very useful for 
programmed instruction and certain other specialized 
applications, but Irrelevant for most users) . 

Note: TDialogs are the units vhich will be banked in a Tool Resource Filt when (if) 
that nodule is conpleted and the Dialog Building Block is integrated with it. 
Whenever a dialog is allocated, you provide a 4-charecter "Kay* to have 
pernanenUy associated vith the dialog in the Resource File. Unless and until 
resource files are used, this "Key* plays no real role in anything. Still, it 
nakes sense to assign a unique 4-character key to each different Dialog in your 
application, so that it will be easier to switch over to Resource Files later . 

[6] TOialoglmage: the components of the Dialog: 
checkboxes, buttons, etc. You create these by calling 
methods of TDialog, such as TDialog. AddStdButton. 

Note: Dialoglnages were, in earlier versions of the Dialog Building Block, called 
Components, and the terns "Dialog Inage", "dialoglnage". "dialog Component", and 
"Coaponent" will be used inttrchangtably inthisdocunent. 



Typical use of a dialog box: 

-- call NewStdDialogiindow to define a new dialog box. 

If you call the object you have just allocated "wyDialogVindow", then the panel 
and dialogView automatically created for you are as follows: 

i^alogWindow.oontrolFanel is the panel. 

i^alogtfindow. dialogView is the dialogView installed in the panel (also 
reachable of course as nyOialogWindow .controlPanel.view) . 

nyfoalogWndow.nainDielog is initially NIL, but is set to the first TDialog to be 
installed in the dialogView. 

-- Define your Dialog : 

(1) Allocate an appropriate TDialog object. 

If you are not subclassing TDialog, you will allocate an 
Jnstanceof TDialog, and at the same time install it in your 
dlalogviev vith code like: 

myDialog :« myDialogwindow. dialogView. AddNewDialogCXYZ •); 

If you Are defining your own subclass of TDialog, you will 
need to Install it in the dlalogviev yourself. This can be 
done by: 

dialogView :* nyDialogUindow. dialogView; 
dialogView.AddDialog(THyOialog.CREATE(.., dialogView...)); 

(2) One t>y one, add the desired components to the Dialog. 

If you are not subclassing TDialog, then you will do 
this just after your call to NewStdDialogwindow, 
probably in your window or selection * s NewCommand . 

If your are subclassing TDialog, then you will do this 
in your subclass' s CREATE method. 
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Dialoglmages can be created and added to the dialog In a 
single step using TOlalog methods: 

AddStdButton to define a Button 

AddStdCluster to define a cluster of 

checkboxes 

AddStdFreeCheckbox--- to define a free checkbox (one 

which is not part of a 
cluster) 

AddStdlnputFrame to define an Input Frame 

AddStdLegend to define a 'Legend* using any 

Typestyle 

AddSysLegend to define a Legend using 

System Font 

Once the dialog structures have been allocated, you can 
at any point request your main window to put up the 
dialog box, with a call to TWindow.PutUpDialogBox. The 
dialog box will be put up and business proceeds as 
usual. Events that come In may be dispatched either to 
the main window or to the dialog box, depending on the 
settings of various dialogBox parameters. 

To take down the dialog box, tell your main window to 
TakeOownOlalogBox. (This can also happen for you 
automatically if you have said you wish your dialog box 
to be automatically dismissed under certain 
circumstances.) 

Some thought needs to be given to whether a dialog box 
will remain allocated even when not in use, or whether 
It should be freed right away after each dismissal. If 
you choose the former route (saves time, wastes space, 
gives sometimes-desirable continuity), you will need 
to store a reference to the DialogWindow somewhere 
(probably as a field In your main window). If you 
choose to have the dialog structures go away after 
dismissal, you can get this behaviour by setting the 
TDlalogWindow's field "freeOnDismissal" to TRUE. 



Identification of components: IDs and IDNumbers 

Some dialoglmage types, such as TButton, TCluster, 
TInputFrame, and, have ' 10' s associated with then for 
identification. Dlaloglmage Ids can be either 
string-valued (e.g. 'Joe') or integer-valued, or both. 

String-valued 10' s: Only the first 9 characters are 
significant; all determinations are made in 
upper-case, with up-shifting handled automatically. 
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Host dialogImages / when created In the 'standard* way, 
take a character string called ItsID as an argument. 
The upshifted version of the first 9 characters of this 
ID will form the ID field of the dialoglmage 
F0REVER--no matter ho* much or how often the text 
associated with the dialoglmage changes. 

Using ldNumbers (INTEGERS) rather than ID'S (STRINGS) 
is naturally more ef f icient, and it is anticipated that 
users vlll use the string-10's initially for 
everything, and will later give idNumbers to any 
dialoglmages they wish to query, for efficiency. 

The alternative of using an IDNumber which is also an 
index into the Phrase File, from whence the text for the 
object is obtained, (which was the technique used in 
release TK7D of the ToolKit, before interactive Dialog 
Layout and Resource Files existed), can still be used, 
although the process is now more awkward. 

For example, if you have a checkbox whose legend you 
wish to retrieve from the phrase as phrase number 
xxZnak, then you can have code like: 

proct5S.CttAlm(xxZrwk, thisID); 

checkbox := clusUr.*ttAligr»<X*ttCfctK>x(thislD, FALSE); 

chtct&ox.idNunbtr :« xxZnak; 

In this example, if you wanted to check whether this 
particular checkbox is the one currently selected in 
the cluster, you could find out with code like: 

IF clusttr.hlttox.idNunt»r * xxZnak THEN ... 

OR alternatively: 

CASE clusttx.hitBox.ldNunbtr OF 
xxZrtok: • • • • 

Constructing & reference from an ID or an IDNumber 

Given the ID or IDNumber of a dialog component, you can 
always obtain a reference to the object itself by using 
one of the following methods: 

FUNCTION TDialoglmage. ObjWithID(id: S255): 
TDialoglmage; 

FUNCTION TDialoglmage. Ob JectwithlDNumber(idNumber: 
integer): TDialoglmage; 

ObJWithlD and ObJectwithlDNumber are defined for any 
subclass of TDialoglmage, but can be expected to return 
NIL unless called from a class which represents a 
structured object with 'children', such as TDi8log 
(children are its components), or TCluster (children 
are its checkboxes). 
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EXAMPLES: 

(«) If SELF is « Dialog which has « button whost ID is 'NEXT, than 
TBuUon($ELF.ObJUithID('NEXT')) is tha button itsalf. 

<b> If SELF is • Dialog which has a clustar whosa IONunbar is 429, than 
TClustar($ELF.0bjactUithIDNunbei(429)) is tha clusUr itsalf. 

(c) If SELF is a clusUr which has a chackbox with idNunbar 2S, than 
TChackbox($ELF.0bjectWithIDHunbar(29» is tha chackbox itsalf . 

Determining whether a given component has a given 10 

If myDialoglmage is a some dialog image, one can 
determine whether it has numeric 10 24 (for example) by 
Just testing whether myDialoglmage. idNumber « 24. 

To test for a string-valued 10, however, it is better to 
call the method TDialoglmage.HasID, since this will 
adjust for unequal length strings and for upper-case 
issues. Thus, to see if myDialoglmage has "Jones" as 
its ID, you can look at the value of 
myDialoglmage. HaslD( 'JONES' ) . 



The Standard Dialog Components 
TLegend 

This type of dialog image consists of one line of text. 
More than one typeStyle can be used in the line, but 
typically one deals with a single typeStyle for the 
entire Legend. Indeed, all the standard ways of 
creating Legends involve specifying only a single 
typeStyle; font and face changes are usually brought 
about through interactive editing. 

Legends are used in the Dialog Building Block wherever 
text needs to be displayed, such as Inside Buttons, 
alongside Checkboxes, as the prompts in Input Frames, 
and in Legend Headings (the standard kind of heading 
available through the Dialog Building Block). Legends 
can also be used directly to display any desired text on 
the screen. 

Creation: 

FUNCTION TOialog.AddStdLegend(itsID: S255; itsXLoc, 
itsYLoc: LONGINT; ItsTypeStyle: TTypeStyle): 
TLegend; 

"itsIO" is a string which will form the characters of 
the legend; the baseline of the legend will be at 
(itsXLoc, itsYLoc) and all characters will be in the 
typesty le given by ItsTypeStyle . 
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FUNCTION TDialog.AddSysLegend(itsID: S255; itsXLoc, 
itsYLoc: LONGINT): TLegend; 

itsID is a string which will form the characters of the 
legend; the baseline of the legend will be at (itsXLoc, 
itsYLoc) and all characters will be in system font. 

FUNCTION TLegend. CREATE(obJect: TObject; heap: THeap; 
itsChars: S255; itsView: TVlew; itsLocation: 
LPoint; itsTypeStyle: TTypeStyle): TLegend; 

This is the required CREATE method, which you might 
want to call if you are adding a legend to a dialoglmage 
which is nota TOialog. 

Other TLegend methods which may be called by 
applications: 

PROCEDURE TLegend. ChangeToPhrase(newPhrase: INTEGER); 

Changes the contents of the legend to the string 
obtained from the phrase file as phrase number 
newPhrase. 

PROCEDURE TLegend. ChangeToString(newString: S25S); 

Changes the contents of the legend to the string 
newString. 

PROCEDURE TLegend. 6etString(VAR ItsString: S255); 

Retrieves the current contents of the legend. 

An aside about System Font: 

System Font is used for the menu bar, for window titles 
on the desktop, and can also be used in Oialogs for 
display of static text (NOT for user-input of text), 
such as in Buttons, Checkboxes, etc. 

CAUTION: any attempt to send any text in System Font to 
the dot-matrix printer in anything other than low-res 
portrait will blow up Lisa Printing. DO NOT DO IT, YOU 
•ILL BE SORRY. 

For this and other reasons, we regard the worlds of 
System Font and of all other fonts as two disjoint 
kingdoms. Although not all the desired protections may 
yet be in place, users are cautioned that mixing system 
and non-system fonts in the same TLegend may cause 
problems. 
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Buttons 



TButton is the dialoglmage subclass which handles all 
Buttons. A Button is a rectangular shape with rounded 
corners, which has some text inside it, and is usually 
used to request some kind of action; common examples 
are the OK and CANCEL buttons in Lisa dialogs. Other 
examples are the NEXT button in LlsaCalc. As such, the 
functions of Buttons and of Menus overlap. 

You are not expected to subclass TButton, but rather to 
create objects of type TButton itself; when a button is 
"pushed" by the user (mouse comes UP inside the button, 
having gone down either Inside the button or somewhere 
outside other than within editable text), you get 
control through your TDlalog.ButtonPushed method. 

Or, if your button has a command number associated with 
it, the generic TDlalog.ButtonPushed will tell your 
main window to PerformCommand of your main window's 
NewCommand object for the command number associated 
with the button that was pushed. 

Creating Buttons, and adding them to Dialogs 

To add an OK button, you call the TDlalog method 
AddOKButton(noCmdNumber) . 

To add an OK button, upon the pressing of which you want 
your main Window ' s NewCommand to be called with command 
number 35, you call TDlalog. Add0KButton(35). 

To add a CANCEL button, you call the TDlalog method 
AddCancelButton(cmdNumber); usually, you will set 
cmdNumber to noCmdNumber, since you don't want to do 
anything if the dialog is cancelled. 

AddOKButton and AddCancelButton both place their 
buttons at a likely spot near the right of the dialog 
box. You can move them anywhere you wish by telling the 
buttons to offset to the desired location. (Or you can 
use interactive dialog layout to get them exactly where 
you want). 

If you use both AddOKButton and AddCancelButton, you 
can be assured that the two buttons will be the same 
size. 

Exanplt: Allocata an OK button, and locatt its top-ltft corntr at (480. 30): 

SELF . A*X)Kfutton(noCndNuftt»r); 

SatLPt(ntuLocation 480 30)* 

TButton(SaF.ObjUiUao6*String)).OffsatTo<nf«lPcation); 
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Buttons other than OK buttons can be created using: 

FUNCTION TDlalog.AddStdButton(lt$ID: S255; itSXLoc, 
itsYLoc: LONGINT; sameSlzedButton: TButton; 
ltsCmdNumber: TCmdNumber): TButton; 

This allocates a standard button, using 'standard* 
settings for button metrics; it adds the button to 
the list of components of the dialog, and also 
returns a reference to the button In case the client 
night have some use for It. 

Example: 

next&utton := SELF. *Jd$tdButton( 'Next', 240, 160, NIL. noCftdNunbtr); 

prevButton :* SELF .Add$td$tdButton( 'Previous', 240, 200, next&utton, noCndNunber); 

This defines a Wo buttons, one of which says 'Next', is located at (240, 160), and 
has no connand winter associated with it. The othtr button says 'Previous', Is th« 
sane size as the "Next" button, and is located at (240, 200) . 

FUNCTION TDialog.AddButton(itSlD: S255; ItsLocation: 
LPoint; ItsHetrics: TButtonMetrics; 
sameSlzedButton: TButton; ltsCmdNumber: 
TCmdNumber): TButton; 

This allocates a button, using the button metrics 
supplied as a parameter. If you are dissatisfied 
with anything about the way AddStdButton does 
things, you can create your o*n Buttonnetrics and 
create your buttons using AddButton rather than 
AddStdButton. 



Anatomy of a Button 



A button's properties are governed by 

[a] A set of "Buttonnetrics". TButtonMetrics 
record with the following fields: 



is a 



[*] 



height: 


INTEGER 


The height of tht button 


ourvN: 


INTEGER 


The h-coaponont of the button's roundRect's 
cur vaunt. 


curW: 


INTEGER 


The v-conponent of tht button's roundRect's 
curvaturt. 


typeStyle: 


INTEGER 


The typestyle to be used for tht text inside the 
button. 


txpandNun: 


INTEGER 


Nuneretor for expansion factor used in conputing 
width (see below) 


expandDon: 


INTEGER 


Dtnonlnator for expansion factor used in 
conputing width, (see below) 


absflinUidth: 


INTEGER 


Tht absolute nininun width acceptable for the 
button, no natter how short its text. 


penState: 


NnState 


The state the Pen should be in when drawing the 
button's roundRect. 


A chain of 


"same-sized Buttons" 
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If more than one button appears in the same dialog, 
then the user may wish to have a number of them have 
the same size, for asthetlc reasons. To achieve this, 
every button has a 'nextSameSizedButton* field, which 
is another button which will always be kept the same 
size as it. Any number of buttons can be linked 
together in a same-sized-button chain. 

Essentially, each button has a •minimum width*, which 
can change as its text changes. It is a function of 
the width of the text actually in the the button's 
Legend at the moment, and of the expandNum/expandOen 
fields of TButton (which, when divided by each other, 
yield the factor by which the button must exceed its 
legend in width), and of the relevant buttonhetrics* 
abshinwidth field. 

A global variable, stdButtonhetrics, contains 
•standard* settings for button metrics; users may use 
this record as a point of departure if insisting on 
departing from the standard. 

Button-related methods of TDialogView 

NOTE: Since users normally do not subclass TDialogView, 
the following methods are most often Just invoked in 
their standard ToolKit form rather than redefined in a 
subclass. 



PROCEOURE TDialogView. AbandonThatButton; 

This is how to turn off button highlighting, which will 
still be on at the time ButtonPushed is called. Do NOT 
try to have done with a pushed button just by telling it 
to unHighlight, since the dialogview's data structures 
will not know about it. 

PROCEDURE TDialogView. ButtonPushed(button: TButton); 

This procedure turns off the button highlighting, 
takes down the dialog box, and if the button which was 
pushed has a command-number associated with it, it 
tells the main window to PerformCommand that command. 
host often, this method ends up being called from the 
client's own TClientDlalog. ButtonPushed method by way 
of a SUPERSELF call, as the last thing done in a dialog. 
See TDlalog. ButtonPushed discussion below. 

PROCEDURE TDlalogView.PushButton(button: TButton); 

This method can be called either automatically by the 
Dialog Building Block (such as when default dismissal 
of a dialog box Is indicated) or by the application. 
This procedure passes the request on to the Dialog in 
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which the button resides. 

PROCEDURE TDialogView.SetDefaultButton(button: TButton); 

Call this method at dialog creation time to establish 
which button in a dialog view is to be the 'Default' 
one. The default button is distinguished on the screen 
by being drawn with a thicker pen. Default dismissal of 
e dialog is triggered by a number of conditions, 
depending on the settings of the response-variables in 
the dialogBox (dialogtfindov). If you set a default 
button in a dialog for which default dismissal is 
impossible, it will be a waste of time. 

OR: 

PROCEDURE TDialog.SetDefaultButton(button: TButton); 

This Just tells the parent dialogview to set its default button to 
the indicated button. You can call this or TDialogV lew's method, to 
the same effect. 



Checkboxes 

A checkbox (class TCheckbox) is a dialoglmage which 
consists of a little rectangle which is either selected 
(filled with black) or not selected (filled with 
white). 

host uses of checkboxes involve having them grouped 
together into a cluster--see below. But checkboxes can 
also be used on their own, so-called Tree Checkboxes', 
and to create these, you can call: 

FUNCTION TDialog.AddStdFreeCheckbox(itsID: S255; itsXLoc, 
itsYLOC: LONGINT): TCheckbox 

Exanplt: checkbox :« $ElF.Add$tdFrtoChtckbox('Friad Fish*. 250. 40); 

This insullt a frat checkbox into a dialog, tilth tht lagand 'Friad Fish* 
and located at (250, 40). Tht actual box dintnsions, and tht spact 
bttwttn tht box and its ltgand, tni tht ohoiot of font fox the logtnd, art 
all standard. 

FUNCTION TDialog.AddFreeCheckbox(it$ID: S255; itsXLOC, 
ItSYLOC: LONGINT; bOxVldth: INTEGER; bOXHeight: 
INTEGER; wantLabel: BOOLEAN; labelOffset: Point; 
ItsTypeStyle: TTypeStyle): TCheckbox 

This is the most general way to add a free checkbox, 
allowing you complete control over all the display 
parameters. 

Exanplt X: 

Rak*Typt$tylt(faff1odtrn, siztl2Pitch, [bold], nyTypaStylt); 
SatK(nyLabtlOffstt. 10. -5); 

ChtcMx* :■ SELF. A*jFrttCht<*box( 'Fritd Fish', 250, 40, 20, 11, TRUE, nyLobelOffsot, 
iVTyptStyla); 
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This installs a free checkbox into a dialog, with tha legend Triad Fish* and locaud 
at (250. 40). Tha checkbox itsalf will ha 20 x 11 pixals, and tha legend's baseline 
will ba locatad 10 pixals to tha right of tha box and 3 pixals above tha botton of tha 
box; tha legend will be in 12 -pitch nodern type, bold face. 

Exanpla.XI: 

HakaType$tyle(faf«odern, sizel2Pitch, [bold], nyTypeStyle); 

checkbox :« SELF.AddFreeCheckbox(noID. 400, 120, 25. 17, FALSE, zeroPt, nyTypeStyle); 

This installs a large free-checkbox into a dialog, with NO legend. Its top-left 
corner is locatad at (400, 120). and tha box Itself is 25 x 17 pixels. 

function TDialog.AddBigFreeCheckbox(itslD: S255; Usxloc, 
itSYLOC: LONGINT): TCheckbOX 

This is like AddStdFreeCheckbox, except it defines a 
much bigger box, with a larger font used for the 
legend. 



To determine whether a given free checkbox is currently 
selected (ON; filled with black) or not (OFF; filled 
with unite), you look at its isSelected field. 

Exanple III: 

To detarnine whether tha checkbox whose ID is 'Extra Hilk' is on or not, 

IF TCheckbox(S€lF. Ob jUith!0( 'EXTRA HILK')). isSelected THEN 
{it's on — do what needs to be done} 

ass 

{it's off — act accordingly) 



Clusters 

A cluster (class TCluster) is a dialoglmage which 
contains a list of checkboxes. In a cluster, one and 
only one of its checkboxes is selected at any given 
moment. Vhen a cluster is told to select a particular 
checkbox, it first deselects its currently-selected 
checkbox. 

TCluster has a field MLitBox which indicates which of 
the boxes is currently selected (highlighted). To find 
the checkbox which is currently selected in myciuster, 
look at myCluster.hlLltBox; to determine action based 
on which checkbox is chosen in a cluster, you can CASE 
on myCluster.hlLltBox. IdNumber if you use ID Numbers. 
If you use string-valued ID* s only, then you can have 
code of the form: 

box :* «yCluster.hilit8ox; 

IF box.HasID('ORAHCES') THEN ... 

ELSE 

IF box. HasID( 'tenons') THEN ... 

ate... 
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To create a typical cluster, use the TDlalog method 
AddStdCluster; this creates the cluster, but it Is at 
the moment empty. Nov give It Its desired checkboxes, 
by using any of the following methods: 



FUNCTION TCluster.AddAlignedCheckbox(itsID: S255; 
selectThlsone: BOOLEAN): TCheckbox 

This Is the easiest nay to add a checkbox to a cluster; 
you give the text to be shown as the first argument, and 
for the second one you specify whether this should be 
the box initially selected in the cluster. 

Exanple: 

cluster :« SELF .Add$totluster( 'Fruit'. 100. 200); 
cluster .WdAlignedCheckbox( 'Oranges'. TRUE); 
cluster .AddAlip/wdCheckboxC'Lenons*, FALSE); 

This adds a cluster which has two checkboxes, reading 'Oranges* and 'Lenons', to the 
dialog, with the Oranges box being selected. The cluster's location (100. 200) becones 
the location of the first checkbox; the second checkbox is placed to the right of the 
first, at a standard distance. 

(note the 10 of the cluster, 'Fruit', will not show up in the dialog, but it is a nane by 
which the cluster is known for the purposes of identification [e.g., if one did not 
store a reference to it, one could determine it by $ELF.0bjuithI0{*Fruit')], and will 
appear as the cluster's title during interactive layout.) 

CAUTION: AddAlignedCheckbox. at the nonent, keeps adding off to the right, taking no account 
of the right edge of the screen. This could change later, if denand is heard. See the 
exanple on the next page under TDialog.AddRowOfboxes for an easy way to circunvent the 
problen by sinply individually positioning the first checkbox of each new row. 

FUNCTION TCluster.AddCheckbox(itsID: S255; itsLocatlon: 
LPoint; bOxWidth: INTEGER; bOxHeight: INTEGER; 
wantLabel: BOOLEAN; labelOffset: Point; itsTypeStyle: 
TTypeStyle; selectThlsone: BOOLEAN): TCheckbox 

This is the most general way to add a checkbox to a 
cluster, allowing you complete control over all the 
display parameters. 

proceoure TCiu$ter.AddRowOfBoxes(numberof Boxes: integer,- 
startinglDNumber: INTEGER; boxWidth: INTGER; boxHeight: 
INTEGER; bOXSpaclng: INTEGER); 

This allows you to add a whole row of checkboxes in one 
step. 

Exanple: 

cluster .AddftowOfBoxes(12, 201, 20, 14, 25); 

This adds 12 checkboxes to the duster. They v given 10 nunbers 201 through 212; each 
box is 20 m 14 in size, and boxes u% 25 pixels apart. 
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FUNCTION TDialog.AddROi0fBoxes(itSlD: S255; ItsXLoc, 
itsYLoc: LONGINT; numberOf Boxes: INTEGER; 
stariinglDNumber: INTEGER; boxWidth: INTGER; boxHelght 
INTEGER; boxSpacing: INTEGER): TCluster; 

This TOialog method allows you to allocate a cluster 
and stuff it full of a row of (unlabeled) checkboxes In 
one step (note that by comparison, to use 
TCluster. AddRowOf Boxes, you need first to have defined 
the cluster) 

Exanplt: (SELF is a TOialog hert) 

clusur :« SELF. AddRowOfBoxesf' Vibrio*. 20, 30, 6, 101, stdBoxUidth, stdBoxH«ight, 

StdBoxSpacing); 
$etlPt<secoodRow, 20, 50); 
checkbox :« clusur. A*iCheckbox(noID, secondRow, stdBoxUidth, stdBoxHeight. 

stdBoxSpacing, FALSE, zaroLPt. sysTypeStyle, FALSE); 
chackbox.idNunbar := 107 
clusur .AddRowOfBoxas(5, 100, stdBoxVidth, stdBoxHeight, stdBoxSpacing); 

This adds 2 rows of 6 checkboxes aach to the clusur. Thay ara given ID nunbtrs 101 
through 112. Tha first checkbox of the second row has U be defined in grtaUr oet&il 
so that its neu location can be specified. 



Input Frames 



An Input Frame is a dialoglmage which allows the 
application to obtain character input from its user. 
Its basic elements are: 

[a J A Prompt ~ this is a TLegend, and forms the request 
for input (e.g. "Please Type Your Name Here:"); this 
involves a location, a typestyle, and the actual text 
to be shown. 

[b] Input specifications: ihere the input should show 
up on the screen; what typestyle should be used for 
echoing characters typed; and how many characters can 
be accepted. 

[c] Borders — how far beyond the prompt and input 
areas should the catchement area for mousepresses be? 
(in essence, this yields a hitRect). 

The "Standard" input frame uses system font for its 
prompt, 12-pitch modern type for its input font, and 
has a standard Borders setting, which is illustrated in 
the sample programs. 

Important methods related to Input Frames: 



FUNCTION TOialog. AddStdInputFrame(itsIO: S255; 
ItsXLoc, itsYLoc: LONGINT; maxInputChars: 
INTEGER): TInputFrame; 

Use this method to create a Standard input frame, with 
prompt in system Font, input characters echoed in 
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12-pitch Modern. The location you provide is for the 
baseline of the prompt; the location of the input area 
is automatically determined. 



FUNCTION TDialog.AddInputFrame(itslD: S255; 
promptLocation: LPoint; promptTypeStyle: 
TTypeStyle; inputLocation:LPoint; 
inputTypeStyle: TTypeStyle; maxlnputChars: 
INTEGER; itsBorders: Rect; drawInputLRect: 
BOOLEAN; drawHltLRect : BOOLEAN): TInputFrame; 

Call this method if AddStdlnputFrame does not serve 
your purposes. 

PROCEDURE TDialog.SelectInputFrame(inputFrame: 
TInputFrame); 

This method, when called, replaces the selection 
associated with the dialog's panel with a 'Select All* 
on the user-input contents of the input frame. 



PROCEDURE TInputFrame. SupplantContents(newContents: 
S255); 

Call this method to replace the 'user-input' in the 
input frame with the specified string. 



PROCEDURE TInputFrame. GetContents(VAR contents: S255); 

Call this method to find out what the current 
user-input is. 



Interactive Dialog Layout 



Whenever a dialog box is up, if you are running a 
version of software built with debugging turned on, you 
can select 'Edit Dialog' from the DEBUG menu, and the 
current version of your dialog box will temporarily be 
replaced by an editable counterpart . 

During interactive layout, you have the opportunity to 
change two things: 

[a] Locations of things -- do by grabbing the tabs 
provided and dragging them to where you want them to be, 
then letting up. Use UNDO to reverse the operation. 

[bj The textual content of any TLegend object, whether 
in a button, a checkbox, an inputFrame, or by itself. 

Layout is accomplished through the use of 'Layout 
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Boxes', which are little boxes with little title tabs. 
Dialoglmages which have ID'S display those 10' s in the 
title tab; dialoglmages which do not themselves have 
10' s (such as TLegends) have a smaller title tab with no 
text in it. 

It is important to realize that what shows up in the 
title table is the 10 of the dlaloglmage as it is 
de fined in your source program. 

HOW. TO STOP EOITING A DIALOG « VERY IMPORTANT 

The only way to stop editing a dialog is to select 'Stop 
Editing Dialog' from the DEBUG menu. 

iHY DO INTERACTIVE EDITING? 

The idea is that the results of the editing are stashed 
in a Resource File. Subsequently, when you wish to 
create another dialog of the same sort, you get it from 
the resource file rather than defining it with 
TDialog. CREATE--but all of the methods of TDialog that 
you have redefined or accepted will apply as usual. 
This mechanism has however not been completed, and 
until it is, interactive Dialog Editing is of limited 
use. 

If you have a dialog of the sort which is freed and the 
reallocated each time it is needed, then interactive 
dialog editing without resource files is nonsense for 
you. If you keep a dialog around once it is allocated, 
then even in the absence of resource files, you can have 
the results of your interactive editing saved by making 
a Stationery pad of the document you were working on 
when you did the editing; then all documents built from 
that Stationery pad will show the edited version of the 
dialog. 



Multiple Dialogs in a DialogView 

A dialogView can have any number of Dialogs installed 
in it, any of which can be either active (visible and 
playing a role in both output and input) or inactive 
(not displayed and not fielding input, but fully 
allocated and waiting in the wings) . 

«e have already seen how an instance of TDialog can be 
added to a dialogView using TDlalogview.AddNewDlalog, 
and how an already-allocated object can be added to a 
dialogView using TDlalogVlew.AddDlalog. 

In addition, the following three methods of 
TDlalogView are of Interest to users wishing to use 
multiple dialogs in the same dialog view: 
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PROCEDURE {TDialogVitv.}tetivaUOialog(tfialog: TDlalog; uhichlty: WXEAN); 
PROCEDURE {TDialogVit«.}RmovtDialo8(tflalog: TDialog; tndFrtt: BOOLEAN); 
PROCEDURE <TDialogViw.}RtplactDi«lo9<oldDialOfl # fit«Di«lo9: TDialog); 

Miscellaneous notes, in no particular order 

[1] Sometimes the application wishes to gain control 
at the moment a checkbox is hit, so that (for example) 
it can change the display. To do this. It should 
Implement TDialog. CheckboxHit(checkbox: TCheckbox; 
toggleDlrectlon: BOOLEAN). The default CheckboxHlt 
method of TDialog does nothing other than pass the 
message up the line to its Dlalogview, whose default 
CheckboxHlt method does nothing. 

Your own implementation of THyDialog. CheckboxHlt till 
presumably determine which checkbox was hit, and which 
cluster that checkbox was In, if any, and take 
appropriate action to modify the display or whatever. 
The "Print flanager" sample dialog in USamDialog gives 
an example. 

[2] The global procedure NewStdDialogWindow gives you 
a dialogwindow with one panel. To get a 
multiple-paneled dialog box, you can either call 
NewStdDialogWindow, and then tell that one panel to 
divide into two by using TPanel. Divide (this should 
work fine, provided that the properties of the first 
panel created automatically suit the requirements of 
at least one of your target panels), or you can call 
TDialogWindow. CREATE in the first place, in which case 
you will need to create all your panels explicitly (the 
first with TPanel. CREATE and the rest with 
TPanel. Divide). The "Headings and Hargins..." dialog 
brought up from the Page Layout menu gives an example . 

[3] Subclassing TDlalogVlew — this is possible, and 
indeed is illustrated in the "Demo Dialog" in the 
sample program USamDialog. in order to allow 
dialog-like behaviour to coexist with non-dialog 
behaviour, a special set of TDlalogVlew methods, all 
with names starting with "X", are available for 
redefinition in your subclass of TDlalogVlew. 

These methods are: XDraw, xCursorAt, XfiousePress, 
xnousehove, and xnouseReiease. The default 
Implementation of all of these methods is empty. 

XDraw is called from TDlalogvlew.Draw; the Idea Is that 
all the "dialog" parts of your dialogview are drawn 
automatically, and then your XDraw Is called in case 
you wish to add something else to the display. 

The other 4 methods, relating to mousing, are all 
'escapes', called only when no dialog component lays 
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claim to the mouse. Thus, If the mouse goes down in a 
Dialogview, first all the components of all of its 
active Dialogs are given a chance to claim the mouse; if 
none does, then XMousePress is called to give the 
non-dialog portion of your Dialogview a chance to claim 
the mouse. 

[4] Dialogview can be shown in an application's main 
window as well as up in a dialog box. The application in 
this case needs to do a bit of extra work to assure that 
the "Edit Dialog" menu command in the DEBUG menu is 
suitably enabled and respected. The sample program 
USamDialog illustrates this use. 

[5] The dialog component "TPicObJect" is implemented 
but totally untested and not usable without some effort 
and risk. The idea of this component is that it can be 
filled with a QuickDraw picture, by using PASTE at some 
suitable moment when some suitable thing is selected. 
This remains a good idea which can't really be used on 
the first release of the ToolKit . 

[6] It is possible to use dialog boxes on the ToolKit 
without using the Dialog Building Block. Class 
TDialogBox is defined in the Generic Application 
("ABC's"), but serves largely as a front-end to the 
Dialog Building Block; anyone wanting to use dialogs 
but not wanting to use the ToolKit 's Dialog Building 
Block could subclass TDialogBox in some other way. 
This would involve considerable reinvention of the 
wheel however. 

[7] It is possible to use the Dialog Building Block to 
display a dialog in a panel of an application's main 
window rather than up in a dialog box. The sample 
program 'SamDialog' illustrates this. 

[8] Each Dialog View operates in one of two ways when it 
comes to mousing among free checkboxes (i.e., 
checkboxes which are not members of a cluster). The 
default is that each time the mouse, while down, is 
dragged through the domain of a free checkbox, that 
checkbox is toggled. Some users may want to have a 
different kind of behaviour, whereby once the mouse has 
toggled one free checkbox OFF (for example), it will 
only ever be able to turn other ON boxes OFF -- I.e., It 
becomes a paintbrush which only paints boxes OFF. Of 
course, corresponding behaviour will happen if the 
first free checkbox the mouse encounters once down is 
one which is currently OFF; in this case, the mouse 
would become an instrument for painting OFF boxes ON, 
and doing nothing with already-ON boxes. You can 
obtain this alternative behaviour by setting the 
TDialogView field "paintFreeBoxes" to TRUE. 

[ 9 ] Bo mrt to got tha lattst orrau shoot for this documnt froit Barry Kaynos. 
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To Lisa ToolKit users 

From: 

Subject: Dialog Building Block Documentation: Addenda and Corrigenda 

Date: 9 April 1964 



Translatable Dialogs 



•hen it recently became known that Resource Files would not be a part of the Spring 
Release of the Lisa ToolKit, the Dialog Building Block, having based its design on the 
assumption that the results of interactive dialog layout would be savable in a Resource 
File, found itself in the awkward position of lacking any convenient way for text 
within dialogs to be translated into other languages . 

Since ToolKit Interfaces have now been frozen, all facilities described in the 
document "ToolKit Dialog Building Block" dated 27 March 1984 have to be retained 
intact, so a way out of the no-Resource-File imbroglio has been found by adding several 
new Methods to the Interface, while retaining the full functionality of all methods 
described In the 27 March document . These new methods basically go back to the TK7D 
design of getting text for dialog components from a Phrase File, but add the ability to 
specify locations as well as textual content in the Phrase File . 

No changes have been made to the Interface of any existing methods, and existing code 
calling the Dialog Building Block should continue to work as is. 

To use the new phrase-file-based methods, you place entries in the Phrase file using 
the following syntax: 

<phrase number> 

<text> » <h-coordinate> , <v-coordinate> 

For example, consider the following entry in a Phrase File 

228 

Next Question » 140, 220 

This associates the IDNumber 228 with the text "Next Question" and with the location 
(140, 220). The "»"-sign is the delimiter signalling the end of the text and the 
beginning of the location. The two locations must be separated by a comma. Spaces are 
optional before and between . 

If in an application' s source program the identifier phNextQuestion is declared to be a 
CONST with value 228, then the call: 

button :» dialog. NewButton(phNextQuestioa stdButtonhetrlcs, prevButtoa 
uNextQuestion); 

will add a button to a dialog, putting the text "Next Question" Inside the button. 
Standard button metrics will be used and the size of this new button will tr 
synchronized with the size of a previously created button called "prevButton"; * 
top-center point of this new button will be located at (140, 220) In its view. Ttr 
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button nill have phNextQuestion (228) as its idNumber, and when it is pushed by the 
user, the main window's NevCommand will be called with uNextQuestlon as the 
command-number argument. 

In similar ways, all the other standard dialog components can now be created such that 
they get their text and locations from a phrase file, and use the index into the phrase 
file as the iPNumber for the component . Where necessary, some methods get onlv the text 
(such as TCluster.NewAlignedCheckbox), or only the location (such as 
TDialog . NewCluster ) . 

The complete list of new methods is as follows : 

(A) New Methods of TDialog 

FUNCTION TDialog.NewButton(itsPhrase: INTEGER; itshetrics: TButtonhetrics; 

sameSizedButton: TButtorv itsCmdNumber: TCmdNuntoer): 
TButtorv 

Taxt and locations obtainad fron phrasa fila; usa stdButtonflatrics for itsflatrics to 
gat standard button natrics. 

FUNCTION TDialog.NewCluster(itsPhrase: INTEGER): TCluster; 
Location obtainad fron phrasa fila. No taxt involvad 

FUNCHON TDialog.NewFreeCheckbox(ltsPhrase: INTEGER; boxwidth: INTEGER; 

boxHeight: INTEGER; wantLabel: BOOLEAN; labelOffset: Point; 
itsTypeStyle: TTypeStyle): TCheckbox; 

Taxt and location obtainad fron phrasa fila. 

FUNCTION TDialog. NewlnputFrame(itsPhrase: INTEGER; promptTypeStyle: TTypeStyle; 

inputOffset: Point; inputTypeStyle: TTypeStyle; 
maxInputChars: INTEGER; itsBorders: Rect; drawl nputLRect: 
BOOLEAN; drawHitLRect: BOOLEAN): TlnputFrane; 

Taxt and location for tha pronpt obtainad fron phrasa-fila; "inputOffsat" paranatar tails 
how far to nova fron tha and of tha pronpt to find tha location of tha "input" ractangla . 
Locations of both tha pronpt and tha input ractangla indicata whara tht t*s*JJr»tf tha 
first charactar is or would ba . 

FUNCTION TDialog.NewLegend(itsPhrase: INTEGER; itsTypeStyle: TTypeStyle): 

TLegena? 

Taxt and location obtainad fron phrasa-fila antry. Usa sysTypaStyla for itsTypaStyla to 
gat tha lagand in Sysun Font. Otharwisa. usa global procadura HakaTypaStyla (dafiad in 
UOraw) to construct a typaStyla to pass to this nathod, or to any nathod which calls for a 
TTypaStyla paranatar) . 

FUNCTION TDialog. NewRowOfBoxes(ltsPhrase: INTEGER; nunoerOf Boxes: INTEGER; 

startinglONunoer: INTEGER; boxwidth: INTEGER; boxHeight: 
INTEGER; bOXSpacing: INTEGER): TCluster; 

Location of tha first box obtainad fron phiasa fila. No uxt involvad. 
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(B) New Methods of TCluster 

FUNCTION TCluster ,NewAligTedBieckbox(itsPhrase: INTEGER; selectThisOne : 

BOOLEAN): TCheckbox; 

FUNCHON TCluster .NewO«*box(itsPhrase: INTEGER; boxWidth: INTEGER; boxHeight: 

INTEGER; wanttabel: BOOLEAN; labelOffset: Point; 
itsTypeStyle: TTypeStyle; selectThisOne: BOOLEAN): 
TCheckbox; 

While it is true, as stated above, that no changes are necessary to any exising code, 
all new users are encouraged to use these new methods wherever they are appropriate. 
Existing users •ho wish their applications to be portable overseas with ease are 
encouraged to follow suit as time permits. 

So What Use is Interactive Dialog Layout now? 

Not very much, unless/until Resource files are incorporated. Sadly, the prospect of 
use of Resource Files meant that one could be rather extravagent in several aspects of 
internal design. Now that Resource files will not be with us, we are left with the price 
of the design without the benefit. I am very sorry about it, and I hope that the 
inefficiencies in space and time will not be that grievous . 

But interactive dialog layout still can be used in the following two ways : 

[a] If you wish to use a non-blank Stationary Pad as the point of departure for 
your application, than any adits to any dialogs that were pravalant at tha 
tine the nodel docunent was node into a Stationery Pad will be incorporated 
in that Stationery. 

But note that this only applies to dialogs that are allocated at start-up tine and 
then never deallocated. Dialogs which are freed and than allocated afresh whan 
needed will always cone up as specified in the Source Progran/Phxase File. 

[b] To get a dialog to be exactly as you want, you can use Interactive Layout, and than 
use the Toolkit Debugger to inspect the locations of the conponents. You can than 
enter those precise coordinates into the phrase file. This is a pretty lo-Uch use 
of the feature, but it beau dozens of iterations between development systen and 
office systan. 

Further Notes 

(1) On page 18 if the 27 March document, additional notes (4) and (7) are essentially 
identical, giving you some idea of the time of night when the memo was written. Strike 
either entry. 

(2) The 27 Harch document neglected to mention an important method of TDialog, namely 
Tulalog.PrepareToAppear. Whenever a dialog window is about to be put up, all dialogs 
in all panels of the window which have TDialogView type view installed in them are sent 
the message to PrepareToAppear. This can be useful If a dialog which is kept around 
when not in use must be reformatted or somehow adjusted for the particular circumstance 
at hand before it is redisplayed. Calls to methods like TlnputFrame.SupplantContents 
and TDlalog.SelectlnputFrame are anticipated in clients' redefinitions of 
PrepareToAppear. 
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From: 

To: Whoever still cares 

Subject: The built-in headings end margins facility in the ToolKlt 

Date: 24 April 1984 



The Toolkit's standard Headings and Margins... dialog provides a uniform Interface 
for creating and editing headers and footers and for specifying page margins. 

This dialog has fallen rather short of its original goals, in the following three ways : 

(1) Margins are set using a primitive checkbox dialog rather than by dragging around 
some nice margin-setting icons. 

(2) The only kinds of headings supported are text headings. Arbitrary graphical 
headings, created t)y pasting from universal Graph, haven't been implemented 
yet. 

(3) Some awkward limitations are still present in the user interface. These do not 
limit what can be achieved, but do make some things harder to do. These are all 
discussed below. 

Thus, we have a general and workable facility that didn't have time to get polished. 
Its quite general functionality is unfortunately packaged in a not so insanely great 
costume. 

With these apologies out of the way, I offer now a — 

Brief Users' Guide: 

When you request Headings and Margins... from the Page Layout menu, a dialog box 
appears with an upper (status) panel and a lower (layout) panel . The layout panel shows 
an actual-size image of a prototype page of the printer for which the document is 
formatted. The clear area here is the •margins' area, in which tne user is most likely 
to wish to locate his headings. The shaded area is the 'body' ares, within which the 
contents of the associated view will be printed. 

All headings defined for the view are shown in the layout panel. You can move any 
heading anywhere you wish on the page, by grabbing its title tab with the mouse, moving 
the heading where you wish it to be, and then letting go. 

You can edit the text of any heading in the usual way . 

The following two variables are predefined for headings: {PAGE} indicates that the 
page number should be substituted, and {TITLE} asks for the window title. Thus, a 
heading which in the Layout Panel reads 

<« this is page {PAGE} of the window named {TITLE} !>» 

will show up, when printed as something like: 

<« this is page 23 of the window named Annual Report ! >» 
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How to Create a New Heading 

First choose the properties the new heading is to have, up in the status panel; then 
press Launch New Heading. A new heading, with text * — New Heading — • is created. 
and is located in the layout panel somewhere near the edge of the page that corresponds 
to the page alignment chosen. 

The new heading appears with all its text selected, so that you can immediately type in 
the actual text you wish to have for your heading. Do text editing and typeStyle 
specif icat ions in the usual fashion. 

Finally, locate the heading exactly where you wish on the page, by grabbing its title 
tab and dragging it. 

How to Delete an unwanted Heading 

Select its title tab, and then request CLEAR . This action is not at present undoable . 

Ho w to Specif y Page Margins 

Check inches or centimeters down in the lower part of the status panel, and then click 
in the checkboxes until they reflect the margins you want. Then push the Install 
hargins button. 

Undo: 

You can UNDO any text edits, as well as any positioning of a box. You can NOT, in this 
versioa UNDO the installation of margins or the launch of a new Heading. 

Major Cautions: 

(1) The margins-specification checkboxes do NOT necessarily reflect what the 
current settings for the margins are. The way to ensure that a particular 
margins specification is used is to click in the appropriate boxes so that the 
checkboxes selected reflect the desired margins, and then press the button 
entitled Install hargins. 

(2) Some of a heading's properties can only be specified at creation time. You can 
change the text of any heading any time, as well as its type style and its 
location. But the easiest way to change its page-alignment, or the 
specifications of which page(s) it is to appear on (odd only, even only, or both 
odd and even; the minimum and maximum applicable page numbers) is to ; 

[a] Select the text you wish to retain from the heading, and copy it top 
the Clipboard. 

[b] Throw away the old unwanted heading (using CLEAR after selecting the 

title tab of the heading) 

[c] Specify the desired settings for the heading in the status panel, then 

press button "Launch New Heading" to get a new heading created with 
the properties you want. The new heading will appear with all its 
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default text selected. 

[d] Finally, request PASTE to overlay the default text with the text from 
your earlier heading. 

(3) The typestyles used in the Layout Panel for the variables {PAGE} and {TITLE} are 
irrelevant at printing tine; when a variable is substituted f or, the typestyle 
used for the print-time text is the typestyle associated with the last character 
beforexx*, variable . It is ok for that character to be a space, and indeed the new 
headings generated by the Launch New Heading button have Just such a leading 
space for Just this purpose . 

Notes: 

(1) The headings you see in the layout panel may or not be identical to the headings 
which will actually be printed, depending on whether they do not or do invoke the 
variables {PAGE} and {TITLE}. If in fact there is one or more such variables in a 
heading, then at print time, the actual bounds of the heading may be different, 
•hat you are assured is that the actual heading printed will be located on the 
printed page according to the same rules that locate the editable version in the 
layout panel. 

Hence, for example, if you have a heading which has center Justification, and 
you have its center located at the top center of the page, then you can be assured 
that the actual heading to be printed will also have its center located at the 
top center of the printed page, no matter how wide it is. Similar remarks hold 
for left and right Justification . 

(2) All headings specified, whatever their circumstances, show up in the layout 
panel. You may well have a number of headings occupying the same place, such as 
if you want one kind of heading on odd-numbered pages and another on 
even-numbered pages, but both of them occupying the same relative location on 
their respective pages. These headings, when stacked up one upon the other in 
the layout panel, may be difficult to read, and you will probably want to move 
them apart while you do text editing, then stack them back up again. 

(3) You can always determine which headings will actually be printed, where on the 
page, on which pages, by entering page-preview mode in the relevant panel . 

(4) But while the Headings and Margins. ... dialog is up, don't expect any portion of 
your main window seen peeking out below the dialog box to reflect the 
currently-in-f lux situation; while the dialog box is up, page-preview mode for 
the panel in question will show the source versions of the headings, without 
variable substitution. 
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•) 

{$SETC forOS :■ TRUE} 

UNIT UDialog; {Copyright 1984 by Apple Computer, Inc) 

{04/25/84 0015 Added field TEd itLegendSel ect ion. tripled ick. end Methods TEditLegendSelect ion. 

HousePress, Mousettove, and MouseRelease} 
{04/23/84 1210 Removed all references to ' underEdit' field of TD ial og Image] 

{SSetc IsJntrinsic :« TRUE } 

{$IFC Is Intrinsic) 

INTRINSIC; 

{$EN0C} 



INTERFACE 

USES 

f SU 1 ibtk/UObject} 
{$IFC Libraryversion <• 

{$U UFont} 
{SENDC} 

{$U QuickDraw) 

{$U 1 ibtk/UOraw) 



SU 1 ibtk/UABC) 

$U 1 ibtk/UUnivText} 

$U 1 ibtk/UText) 



UObject, 
20} 
UFont, 

QuickDraw, 
UDrau, 



UABC 

UTKUniversalText, 

UText; 



CONST 

UDialogversion - 'UDialog 25Apr84 16:30'; 



Dialog Building Block for the Tool Kit 



The Dialog Building Block provides the following standard kinds of dialog Images: 

Button A Lisa-style button (a round-cornered Rectangle for pushing, with text inside it) 

Checkbox A checkbox (a box for checking, plus an optional associated textual label) 

Cluster A set of related checkboxes or which only one is selected at a t ime 

Input Frame A place for keyboard input to b« inhaled 

Legend A character string, together with font & face information 

Text Dialog Image A box of text managed by the Text editor (largely untested) 

PicObject A QuickDraw picture (never tested; probably not bankable; status uncertain) 

The basic bankable dialog entity which can be stashed into/retrieved from a Resource File 

is the class TDialog. For each different kind of dialog box you want, you will typically define 

another subclass of TDialog. 

To EDIT a dialog interact ivel y, you must: 

(1) Have the menu items 'mtdit Dialog' and 'Stop Editing Dialog' in your phrase-file 

(2) If the dialog is viewed in your main window rather than in a dialog box, (such as Preferences) 

then your own main Window. CanDoCmd should enable u£d it Dialog whenever the dialog to be editted 
is unambiguously selected in the window and there is not a dialog box up; in this 
case, the dialog editting takes place in a dialog box whereas the dialog itself resides 
in the main window. 

CAUTION: Until Resource Files are incoporated, the edits to a dialog are local to the document 
in which you made the edits, as well as documents made from a stationery pad made from 
that document. 

How to have your own view be a subclass of TDialogViau, and still do all of its normal Vieu things, 
while having the Dialog Building Block handle everything that occurs which is relevant to 
its dialogs: 

fa) To draw the non-dialog parts of the view, implement method TDialogView. XDrau 

(b) To set the cursor in the non-dialog parts of the view, implement method TDialogVieu. XCursorAt 

(c) Implement XHousePress, XHouseHove, and XMouseRelease instead of their non-x counterparts 

•) 

TYPE 

S4 - STRING{ 4]; 

TId - STRING! IDLength]; 

TButtonMetrics ■ 
RECORD 

height: 

curvH: 

curvV: 

typeStyle*. 

expandNunt 
expandDen: 



INTEGER; 
INTEGER; 
INTEGER; 

TTypeStyle; 

INTEGER; 
INTEGER; 



fa button's min width is its text's with times this numerator} 
{ ... divided by this denominator) 



END; 
TStringKey 



absrtinUidtrr. 
penState: 



INTEGER; 

PenState; {for drawing the round-rect) 



RECORD {Keys for Dialogs in Resource Files} 

trueKey: LONG INT; 

key: S4; 
END; 



CLASSES 
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112 — { classes implemented in file U0ialog2 .- } 

113 — 

114 — , ■ 
US — TDialogUindou • SUBCLASS of TDialogBox {which itself is in UABC] 

116 — 

117 — controlPanel: TPanel; {One uith a dialogVieu in it; may be told to push its dflt button} 
118— dialogVieu: TDialogVieu; {the vieu installed in SELF, cont rol Panel } 

119 — mainOialog: TDialog; (the first dialog installed in SELF. dialogVieu] 

120 ~ 

121 ~ -(Creation /Destruction} 

122— FUNCTION TOialogUindou. CREATE(object: TObject; heap: THeap; ItsResizabil lty: BOOLEAN; 

123 — itsHeignt: INTEGER; itsKeyResponse, itshenuResponse, itsOounlnhainUindouResponse: TDiResponse) 

124 — •- : TOialogUindou; 

125 — 

126 — {Showing and Hiding} 

127— PROCEDURE TOialogUindou. Appear, OVERRIDE; 

128— PROCEDURE TOialogUindou. BeD is* issed; OVERRIDE; 

129— FUNCTION TOialogUindou. CanOoCommand(cmdNumber. TCmdNumber, VAR check It: BOOLEAN): BOOLEAN; OVERRIDE; 

130 — PROCEDURE TOialogUindou. Disappear, OVERRIDE; 

131 — 

132 — {Commands} 

133— FUNCTION TOialogUindou. N«uCommand( cmdNumber. TCmdNumber): TCommand; OVERRIDE; 

134 — 

135 — END; {TOialogUindou interface] 

136 — 

137 — 

138 - { } 

139 — 

140 — 

141 — TDialogVieu • SUBCLASS OF TVieu {a vieu which contains dialog images as uell as, possibly, other things} 

142 — 

143 — rootDialog: TDialog; {The children of this object are the constituent Dialogs of this vieu} 

144 — 

145 — nonDialogExtent: LRect; {intlnsic overall extent, dialog * non-dialog actually] 

146 — 

147 — currentD ial og Image: TDialog Image; {uhich descendent ouns the mouse during drag] 

148 — 

149 — default But ton: TButton; f uhich if any button is the default] 
■•---- — . . . . uhich Button uas last chosen] 

used to suppress meaningless screen actions for not-yet-shouing box} 



150 — hitButton: TButton; 

151 — isShouing: BOOLEAN; 

152 — 

153 — paintFreeBoxes: BOOLEAN; 

154 — paint Sense: BOOLEAN; 

155 — startedPainting: BOOLEAN; 



uhether free-checkboxes are to be painted in one sense only] 
... and i f so, in uh ich sense } 
uhether ue' ve begun to paint and hence establ ished paintSense] 



156 - 

157 — stylesheet: TStyleSheet; {for use by text images seen in the vieu] 

158 — 

159 — mouse IsDoun: BOOLEAN; 

160 — magnetCurson TCursorNumber; {to force CursorAt to return this value until mouselsDoun is FALSE} 

161 — 

162 — { ••• Publ ic Interface ••• } 

163 — {Creation/Destruction} 

164— FUNCTION TDialogVieu. CREATE( ob ject: TObject; heap: THeap; itsExtentLRect: LRect; itsPanel: TPanel; 

165 — itsPrintHanager. TPrintflanager, itsRes: Point): TDialogVieu; 

166— PROCEDURE TDialogVieu. Free; OVERRIDE; 
167 — 

168— {Installing, Removing, Activating, Deact ivating dialogs) 

169— PROCEDURE TDialogVieu. AddD ial og( dialog: TDialog); 

170— FUNCTION TDialogVieu. AddNeuDialog{ itsKey: S4): TDialog; 

171 — PROCEDURE TDialogVieu. Act ivateDialog(dialog: TDialog; uhichUay: BOOLEAN); 

172— PROCEDURE TDialogVieu. RemoveD ial og( dialog: TDialog; andFree: BOOLEAN); 

173— PROCEDURE TDialogVieu. RepiaceD ial og{ ol dOlal og, neuDlalog: TDialog); 

174 — 

175 — {Methods uhich client should redefine to get a dialogVieu also to have non-dialog behaviour} 

176 — FUNCTION TDialogVieu. XCursorAt(mouseLPt: LPoint): TCursorNumber DEFAULT; 
177— PROCEDURE TDialogVieu. XDrau; DEFAULT; 

178 — PROCEDURE TDialogVieu. XHousePress(mouseLPt: LPoint); DEFAULT; 

179 — PROCEDURE TDialogVieu. XHouseHove(mouseLPt: LPoint); DEFAULT; 

180 — PROCEDURE TO ial ogV ieu. XrtouseRel easr, DEFAULT; 

181 — 

182 — {Buttons and checkboxes] 

183— PROCEDURE TDialogVieu. AbandonThatButton; 

184 — PROCEDURE TDialogVieu. ButtonPushecK button: TButton); {normally, TDialog' s ButtonPushed is used} 

185 — PROCEDURE TDialogVieu. CheckboxHit( checkbox: TCheckbox; toggleDirection: BOOLEAN); 

186 — PROCEDURE TDialogVieu. PushButtorrf button: TButton); {client or ToolKit may call] 
187— PROCEDURE TOialogVieu. SetDefaul t8utton( button: TButton); 

188 — {NB: PushButton sets the dialogVieu' s hitButton to the requested button, assures that it 

189 — is highl ighted, and then calls the client's ButtonPushed method of the TDialog uhich 

190 — is the parent of the button] 

191 — 

192 — { ••• Private Interface ••• ( He t hods not expected to be redefined or celled by client)} 

193— FUNCTION TDialogVieu. CursorAt [mouseLPf. LPoint): TCursorNumber, OVERRIDE; 

194— PROCEDURE TDialogVieu. Draw OVERRIDE; 

195— PROCEDURE TDialogVieu. EachActualPartf PROCEDURE DoToObjectf filteredObj: TObject)); OVERRIDE; 

196— PROCEDURE TDialogVieu. MouseMove(mouseLPt: LPoint): OVERRIDE; 

197— PRXEDURE TDialogVieu. HousePress(mouseLPt: LPoint); OVERRIDE; 

198— PROCEDURE TDialogVieu. HouseRel ease; OVERRIDE; 

199 — PROCEDURE TDialogVieu. RecalcExtent; OVERRIDE; 

200 — 

201 — END, {TDialogVieu interface] 

202 — 

203 — { ] 

204 — 

205 — 

206 — TDialog Image > SUBCLASS OF T Image 

207 — 

208 — parent: TDialog Image; 

209 — isActive: BOOLEAN; 

210 — isEditabl* BOOLEAN; 

211 — uithID: BOOLEAN; 

212 — 

213 — {Creation /destruction] wj „„„ 
214— FUNCTION TD ial og Image. CREATE( object: TObject; heap: THeap; itsExtent: LRect; itsld: S255; 

215 — itsVieu: TVieu; uithChildren: BOOLEAN): TD ial og Image; 

216 — 

217— PROCEDURE TDialog Image. Cont rol Hit{ cont rol: TDialoglmage; toggleDirection: BOOLEAN); DEFAULT; 

218 — FUNCTION TDialoglmage. DounAtfmouseLPt: LPoint): TDialoglmage; DEFAULT; 

219— PROCEDURE TDialoglmage. Drau; 0VERRI0E; ...... , M ... 

220 — PROCEDURE TDialoglmage. DreuJust He; {called by Drau after children, if any, are told to drau] DEFAULT; 



2D Hug 1984 ID: 54: 44 uuiauju. lwu ruye 



221— FUNCTION TDialoglmage. LaunchLayoutBox(vieu: TVieu): Ting*; OVERRIDE; 

222— PROCEDURE TO ial oglmage. PrepareToAppear; 

223 — PROCEDURE TOialoglmage. Recal cExtent; OVERRIDE; 

224— FUNCTION TDialoglmage. St ill MyMouse(mouseLPt: LPoint): BOOLEAN; DEFAULT; 

225 — 

226 — {The fol lowing methods arc stubs, redefined in TImageWithID} 

227— PROCEDURE TDialoglmage. Add Image* dial oglmage: TDialog Image); DEFAULT; 

228— PROCEDURE TDialoglmage. Act ivatelmage{ dial oglmage: TDialoglmage; uhichWay: BOOLEAN); DEFAULT; 

229— PROCEDURE TDialoglmage. BringToFront( dial oglmage: TDialoglmage); DEFAULT; 
250— PROCEDURE TDialoglmage. ComeForuard; DEFAULT; r# ^_ 

231— PROCEBURE TDialoglmage. Delete Image( dial oglmage: TDialoglmage; andFree: BOOLEAN) : DEFAULT; 

232— PROCEDURE TDialoglmage. EachActualPartf PROCEDURE DoToObject(f ilteredObj: TObject)); OVERRIDE; 
233 — FUNCTION TOialoglmage. Has Id( id: S25S): BOOLEAN; DEFAULT; 

234— FUNCTION TOialoglmage. ObjectWithlDNumberf idNumber INTEGER): TDialoglmage; DEFAULT; 

235— FUNCTION TDialoglmage. Ob jW it hld{ id S2S5): TDialoglmage, DEFAULT; 

236— PROCEDURE TDialoglmage. Replace lmage( repl acee. neuValue: TDialoglmage); DEFAULT; 

237 — 

238 — END; 

239 — 

240 — 

241 — TImageWithID » SUBCLASS OF TDialoglmage {same interface as TDialoglmage, basically} 

242 — 

243 — children: TList; {of TDialoglmage} 

244 — id: TId; 

245 — idNumber INTEGER; 

246 — 

247— FUNCTION TImageWithID. CREATE( object: TObject; heap: THeap; itsExtent: LRect; its Id: S2S5; 

248 — itsVieu: TVieu; uithChildren: BOOLEAN): TImageWithID; 

249— FUNCTION TImageWithID. CI one( heap: THeap): TObject; OVERRIDE; 

250 — PROCEDURE TImageWithID. Free; OVERRIDE; 

251 — 

252— PROCEDURE TImageWithID. Add Imagefd ial oglmage: TDialoglmage); OVERRIDE; 

253— PROCEDURE TImageWithID. Activate Image( dial oglmage: TOialoglmage; uhichUay: BOOLEAN); OVERRIDE; 

254— PROCEDURE TImageWithID. BringToFront{ dial oglmage: TDialoglmage); OVERRIDE; 

255— FUNCTION TImageWithID. CursorAt(mouseLPt: LPoint): TCursorNumber; OVERRIDE; 

256— PROCEDURE TImageWithID. Delete Imagef dial oglmage: TDialoglmage; andFree: BOOLEAN); OVERRIDE; 

257— PROCEDURE TImageWithID. Draw; OVERRIDE; 

258— PROCEDURE TImageWithID. EachActualPartf PROCEDURE DoToObject(f ilteredObj: TObject)): OVERRIDE; 

259— PROCEDURE TImageWithID. EachVirtual Part( PROCEDURE DoToOb ject( f ilteredObj: TObject)); OVERRIDE; 

260— FUNCTION TImageWithID. Has Id( id: S255): BOOLEAN; OVERRIDE; 

261— PROCEDURE TImageWithID. HaveVieu(vieu: TVieu); OVERRIDE; 

262— FUNCTION TImageWithID. LaunchLayoutBox(vieu: TVieu): TImage: OVERRIDE; 

263— FUNCTION TImageWithID. Ob jectWithIDNumber( idNumber INTEGER): TDialoglmage; OVERRIDE; 

264— FUNCTION TImageWithID, ObjWithldf id: S255): TDialoglmage; OVERRIDE; 

265— PROCEDURE TImageWithID. Of fSetBy( del taLPt: LPoint); OVERRIDE; 

266— PROCEDURE TImageWithID. Recal cExtent; OVERRIDE; 

267— PROCEDURE TImageWithID. Repl ace Image? repl acee, neuValue: TDialoglmage); OVERRIDE; 

268— FUNCTION TImageWithlO. St il 1 Myhouse{ mouseLPt : LPoint): BOOLEAN; OVERRIDE; 

269 — 

270 — END; 

271 — . , 

272 — { } 

273 — 

274 — 

275 — TDialog - SUBCLASS OF TImageWithID 

276 — 

277 — stringKey: TStringKey; {essentially a unique 4-character ID by uhich this dialog is knoun] 

278 — 

279 — {Creation} 

280 — ■ ■ • 

281— FUNCTION TDialog. CREATE( object: TObject; heap: THeap; itsKey: S4; itsVieu: TVieu): TDialog; 

282 — 

283 — {Creation of the basic dialog elements:} 

284 — 

285 — {Elements originating from phrase file; in each case, the text for the legend associated uith the 

286 — component, if any, as uell as a LOCATION for the component, are obtained from the same entry 

287 — in the phrase file, uith the syntax 

288 — 

289 — <text>B<h-coordinate>, <w-coordinate> 

290 — 

291 — EXAMPLE: Suppose the follouing 2 lines are in the Phrase File: 

292 — 

293 — 449 

294 — Next«430, 50 

295 — 

296 — If ue call NeuButton(449, ...), then a button is created, uith the text 'Next' inside it; 

297 — the button is given idNumber 449, and is located at (430, SO)} 

298 — 

299 — { PUBLIC INTERFACE — USE THESE HETHOOS 

300 — 

301— FUNCTION TDialog. N*uButton( itsPhrase: INTEGER; itsHetrics: TButtonMetrics; sameSizedButton: TButton, 

302 — TtsCmdNumber TCmdNumber): TButton; 

303 — , 

304— FUNCTION TDialog. NeuClusterf itsPhrase: INTEGER): TCluster; 

305 — 

306— FUNCTION TDialog. NeuFreeCheckbox( itsPhrase: INTEGER; boxWidth: INTEGER; , ,_ in 

307 — boxHeight: INTEGER; uantLabel: BOOLEAN; labelOffset: Point; itsTypeStyle: TTypeStyle): TCheckBox; 

308 — 

309— FUNCTION TDialog. NeuInputFramef. itsPhrase: INTEGER; prompt TypeStyle: TTypeStyle; 

310 — inputOffset: Point; input TypeStyle: TTypeStyle; 

311 — maxInputChars: INTEGER; itsBorders: Rect; dreuInputLRect: BOOLEAN; 

312 — dreuHitLRect: BOOLEAN): TInputFrame; 

314— FUNCTION TDialog. NeuLegend( itsPhrase: INTEGER; itsTypeStyle: TTypeStyle): TLegend; 

316— FUNCTION TDialog. NeuRouOfBoxes( itsPhrase: INTEGER; numberOfBoxes: INTEGER; .^...^^ t„, . 

317— start inglDNuSber INTEGER; boxWidth: INTEGER; boxHeight: INTEGER; boxSpacing: INTEGER): TCluster, 
318 — 

320 — C PROCEDURE TDialog. ButtonPushed( but ton: TButton); DEFAULT; (client overrides often} 

321— PROCEDURE TDialog. CheckboxHit{ checkbox: TCheckbox; toggleOi rect ion: BOOLEAN); DEFAULT; 

322 — {client overrides sometimes} „„,„,. 

323— PROCEDURE TDialog. Control Hit (control: TDialoglmage; toggleOi rect ion: BOOLEAN) ; OVERR IDE; 

324— PROCEDURE TDialog. PushButton( button: TButton); {client or Tool Kit may call} 

325— PROCEDURE TDialog. Select InputFramef inputFrame: TInputFrame); 

326— PROCEDURE TDialog Set Default But ton( button: TButton); 
327 — 

329 — { PRIVATE INTERFACE *•**} 

330 — 
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351 — {These methods of TDialog are largely either for internal use of the building block, or maintained for 

332 — backward compatabil ity uith earl ier versions of the dialog building block} 

333 — 

334 -- {"Standard" elements:) 

335— FUNCTION TDialog. AddStdButton< its Id S255; itsXLoc, itsYLoc: LONGINT; sameSizedButton: TButton; 

336 — itsCmdNumben TCmdNumber): TButton; 

337— PROCEDURE TDialog Ade»KButton(cmdNumber. TCmdNumber); {OK Button) 

338— PROCEDURE TDialog. AddCancelButto^cmdNumber TCmdNumber); {Cancel Button) 

339— FUNCTION TDialog. AddStdCluster( its Id: S255; itsXLoc, itsYLoc: LONGINT): TCluster, 

340— FUNCTION TDialog. AddStdF reeCheckbox( its Id- S255; itsXLoc, itsYLoc LONGINT): TCheckBox; 

341— - FUNCTION TDialog. AddStd Input Frame( its Id: S255; itsXLoc: LONGINT; 

342 — itsYLoc: LONGINT; max Input Chars : INTEGER): TInputFrame; 

343— _ FUNCTION TDialog. AddStdLegend( its Id: S255; itsXLoc, itsYLoc: LONGINT; 

344 — » itsTypeStyle: TTypeStyle): TLegend; 

345— ~ FUNCTION TDialog. AddSysLegend( its Id: S255; itsXLoc, itsYLoc: LONGINT): TLegend; 

346 — 

347 — {General creation of dialog Images) 

348— FUNCTION TDialog. AddButton( its Id: S255; itsLocation: LPoint; itshetrics: TButtonMetrics; 

349 — sameSizedButton: TButton; itsCmdNumben TCmdNumber): TButton: 

350 — 

351— FUNCTION TD ial og. AddF reeCheckbox( it s ID: S255; itsXLoc, itsYLoc: LONGINT; boxUidth: INTEGER; 

352 — boxHeight: INTEGER; uantLabel: BOOLEAN; label Offset: Point; itsTypeStyle: TTypeStyle): TCheckbox; 

354— FUNCTION TDialog. AddBigFreeCheckbox( its Id: S2S5; itsXLoc, itsYLoc: LONGINT): TCheckbox; 

355 — 

356— FUNCTION TDialog. AddRouOfBoxes( itsID: S255; itsXLoc, itsYLoc: LONGINT; numberOfBoxes: INTEGER; 

357— startinglDNumber INTEGER; boxUidth: INTEGER; boxHeight: INTEGER; boxSpacing: INTEGER): TCluster, 
358 — 

359— FUNCTION TDialog. Add Input Frame( its Id: S25S; 

360 — promptLocat ion: LPoint; promptTypeStyle: TTypeStyle; 

361 — inputLocat ion: LPoint; inputTypeStyle: TTypeStyle; 

362 — maxInputChars: INTEGER; itsBorders: Rect; drauInputLRect: BOOLEAN; 

363 — drauHitLRect: BOOLEAN): TInputFrame; 

364 — 

365— FUNCTION TDialog. DounAtfmouseLPt: LPoint): TD ial og Image; OVERRIDE; 

366 — PROCEDURE TDialog. Recal cExtent; OVERRIDE; 

367 — 

368 — END; 

369 — 

370 — 

371 .. { } 

372 — 

373 — 

374 — TButton « SUBCLASS OF TlmageWithlD 

375 — 

376 — cmdNumber TCmdNumber, 

377 — minWidth: INTEGER; 

378 — isHtghl ighted: BOOLEAN; 

379 — next SameSizedButton: TButton; 

380 — legend: TLegend; 

381 — buttonMetrics: TButtonMetrics; 

382 — 

383 — {Creation/Destruction) 

384— FUNCTION TButton. CREATE( object: TObject; heap: THeap; its Id: S255; itsVieu: TVieu; 

385— itsLocation: LPoint; itshetrics: TButtonMetrics; sameSizedButton: TButton; 

386 — itsCmdNumber. TCmdNumber): TButton; 

387 — 

388— PROCEDURE TButton. DrauJustfle; OVERRIDE; 

389— PROCEDURE TButton. Highl ight(highTransit: THighTransit); 

390— FUNCTION TButton. LaunchLayoutBox(vieu: TVieu): T Image; OVERRIDE; 

391— PROCEDURE TButton. MousePress(mouseLPt: LPoint); OVERRIDE; 

392— PROCEDURE TButton. HouseRel ease; OVERRIDE; 

393— PROCEDURE TButton. Recal cEx tent; OVERRIDE; 

394— PROCEDURE TButton. Recomputed inUidth: INTEGER); 

395— FUNCTION TButton. St ill Myhouse(mouseLPt: LPoint): BOOLEAN; OVERRIDE; 

396 — 

397 — END; {TButton interface) 

398 — 

399 „ [ _ } 

400 — 

401 — TCheckbox » SUBCLASS of TlmageWithlD 

402 — 

403 — isSelected: BOOLEAN; 

404 — 

405 — rect Image: TRect Image; (also a child} 

406— legend TLegend; {ifnonnil, also a child) 

407 — 

408— FUNCTION TCheckbox. CREATE( object: TObject; heap: THeap; its Id: S255; itsVieu: TVieu; 

409 — itsLocation: LPoint; boxUidth: INTEGER; boxHeight: INTEGER; uantLabel: BOOLEAN; 

410— label Offset: Point; itsTypeStyle: TTypeStyle): TCheckbox; 

412— PROCEDURE TCheckbox. ChangeLabel ( neuS255: S255}; 

413— FUNCTION TCheckbox. CursorAtfmouseLPt: LPoint): TCursorNumber, OVERRIOE; 

414 — PROCEDURE TCheckbox. Draw; OVERRIDE; 

415 — FUNCTION TCheckbox. LaunchLayoutBox{ vievc TVieu): T Image; OVERRIDE; 
416— PROCEDURE TCheckbox. HousePress(mouseLPt: LPoint); OVERRIDE; 

417 — PROCEDURE TCheckbox. Toggl e; 

418 — 

419 — END; {TCheckbox interface) 

420 — 

421 - { } 

422 — 

423 — TCluster - SUBCLASS of TlmageWithlD 

424 — 

425 — {children: TList; (of TCheckbox) } 

426 — 

427 — location: LPoint; (only used for adding the first aligned checkbox) 



428 — hit Box: TCheckbox; 

429 — hiLitBox: TCheckbox; 

430 — lastBox: TCheckBox; 



uhich one uas just successfully queried by Hit) 

uhich one is highl ighted} 

the checkbox most recently added checkbox) 

431 — ' " 

432— FUNCTION TCluster. CREATE( object: TObject; heap: THeap; its Id: S255; itsVieu: TVieu; 

433 — itsLocation : LPoint): TCluster, 

434 — 

435 — { PUBLIC INTERFACE: 

436 

437 — •••••• create a cluster using TDialog. NeuCluster, add checkboxes to it by calling any of the follouing 

438 — •••••• three methods. To change uhich box is selected in the cluster programmatically, call SelectBox 

439 

440 — To find out uhich box is selected in a cluster, look at cluster. hiLitBox. idNumber) 
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FUNCTION TCluster. NeuAl ignedCheckbox( itsPhras* INTEGER; sel ect Th isOne: BOOLEAN): TCheckbox 
FUNCTION TCluster. NewCheckbox( itsPhrase: INTEGER boxWidth: INTEGER; 

boxHeight: INTEGER; uantLabel: BOOLEAN; lebelOffset: Point; itsTypeStyle: TTypeStyle 

select ThisOne: BOOLEAN): TCheckbox; 
PROCEDURE TCluster. AddRouOfBoxes(numberOfBoxes: INTEGER; start inglDNumben INTEGER; 

boxWidth: INTEGER; boxHeight: INTEGER; boxSpacing: INTEGER); 

PROCEDURE TCluster. Select Box( checkbox: TCheckbox); {select this box, deselecting others) 

{•••••• PRIVATE INTERFACE: 

...... jhese remaining methods of TCluster are for primarily for internal use:} 

FUNCTION TCluster. AddAl ignedCheckboxf itsld: S255; select ThisOne: BOOLEAN): TCheckbox; 
FUNCTION TCluster. AddCheckboxf its ID: S255; itsLocation: LPoint; boxWidth: INTEGER; 

boxHeight: INTEGER; uantLabel: BOOLEAN; label Offset: Point; ItsTypeStyle: TTypeStyle, 

select ThisOne: BOOLEAN): TCheckbox; 
FUNCTION TCluster. Hit(mouseLPt: LPoint): BOOLEAN; OVERRIDE; 
PROCEDURE TCluster. NousePressfmouseLPt: LPoint); OVERRIDE; 
FUNCTION TCluster. St ill HyHouse(mouseLPt: LPoint): BOOLEAN; OVERRIDE; 

END; {TCluster interface} 

{ _„ } 

TInputFrame - SUBCLASS OF TImageUithID 

textDialog Image: TTextDlalog Image; 
prompt: TLegend; 

borders: Rect; 

draw Input LRect: BOOLEAN; fuhether or not to draw a faint box around the input LRect} 

drauHitLRect: BOOLEAN; {whether or not to frame the hit rectangle} 

maxInputChars: INTEGER; 

input TypeSt yl e: TTypeSt yl e; 

FUNCTION TInputFrame. CREATE( object: TObject; heap: THeap; itsld: S255; itsVieu: TVieu; 
promptLocation: LPoint; prompt TypeSt vie: TTypeStyle; 

input Location: LPoint; input TypeSt yle: TTypeStyle; maxInputChars: INTEGER; 
itsBorders: Rect; draw Input LRect: BOOLEAN; drauHitLRect: BOOLEAN 
): TInputFrame; 



PUBLIC INTERFACE 



{Create an input frame by calling TDialog. New Input Frame; use GetContents and Supplant Contents 
to find out uhat has been typed, and to change what appears in the typing area) 

PROCEDURE TInputFrame. GetContents(VAR theStr S255): { inspect current frame contents} 

PROCEDURE TInputFrame. SupplantContents(neuStr S255); {change current frame contents} 



PRIVATE INTERFACE 



FUNCTION TInputFrame. CursorAtfmouseLPt: LPoint): TCursorNumber; OVERRIDE; 

PROCEDURE TInputFrame. Drau; OVERRIDE; 

FUNCTION TInputFrame. LaunchLayoutBox(vieu: TVieu): T Image; OVERRIDE; 

PROCEDURE TInputFrame. MousePress(mouseLPt: LPoint); OVERRIDE; 

PROCEDURE TInputFrame. RecalcExtent; OVERRIDE; 

FUNCTION TInputFrame. St ill Myhouse( mouseLPt: LPoint): BOOLEAN; OVERRIDE; 

END; {TInputFrame interface} 

{ .;. 

TLegend > SUBCLASS OF TDialog Image 

location: LPoint; 

paragraph: TParagraph; 

uouldBeDraggable: BOOLEAN; fuhether, during layout, it should itsel f be draggable] 

usesSysFont: BOOLEAN; {uhether it is in system font ~ a special case} 

FUNCTION TLegend. CREATE( object: TObject; heap: THeap; itsChars: S2S5; itsVieu: TVieu; 

itsLocation: LPoint; itsTypeStyle: TTypeStyle): TLegend; 
PRXEDURE TLegend. Free; OVERRIDE; 



PUBLIC INTERFACE 



PROCEDURE TLegend. ChangeToPhrase(neuPhrase: INTEGER); {for getting neu text from phrase file} 
PROCEDURE TLegend. ChangeStringfneuSt ring: S255): {for getting neu text from a string} 
PROCEDURE TLegend. GetStringXVAR itsString: S2S5); {determine current chars residing in the legend} 



• PRIVATE INTERFACE •••' ' 

PROCEDURE TLegend. Drau; OVERRIDE; 

PROCEDURE TLegend. Get BoxRight; {sets extent based on current chars & location} 

FUNCTION TLegend. LaunchLayoutBoxfvieu: TVieu): T Image; OVERRIDE; 

PROCEDURE TLegend. Offset By( del taLPt: LPoint); OVERRIDE; 

PROCEDURE TLegend. RecalcExtent; OVERRIDE; 

END; 

classes implemented in file UOialog3 



TPicObject - SUBCLASS OF TImageUithID {An Object uhich holds a QD Picture File} {CAUTION: totally untested) 

picture: PicHandle; 

boxAtCreat ion: Rect; {need to get itsVieu parameter into ell these guys} 

FUNCTION TPicObject. CREATE( object: TObject; heap: THeap; itsld: S2S5; 

itsVieu: TVieu; itsLocation: LPoint; itsPicHendle: PicHandle): TPicObject; 
PROCEDURE TPicObject. Free; OVERRIDE; 

PROCEDURE TPicObject. Drau; OVERRIDE; 

ENO; 
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TRect Image - SUBCLASS OF TD ialog Image 
penStete: PenState*. 



{a rectangle packaged as a object} 



FUNCTION TRect Image. CREATE( object: TObject; heap: THeap; itsExtent: LRect; itsld: S255; 
itsVieu: TVieu; itsPenState: PenState; uithChildren: BOOLEAN): TRect Image; 

PROCEDURE TRect Image. Drau; OVERRIDE; 

FUNCTION TRect Image. LaunchLayoutBox(vieu: TVieu): T Image; OVERRIDE; 

END; 



TTextDlalog Image - SUBCLASS OF T Imaged) ith ID 



text Image: 

uoul dBeDraggabl e: 

re f Count: 



TText Image; 

BOOLEAN; 

INTEGER; 



FUNCTION TTextD ialog Image. CREATEf object: TObject; heap: THeap; ItsExtent: LRect; itsld: S255; 

itsVieu: TVieu; itsTypeStyle: TTypeStyle; 

its Initial Chars: S255T: TTextD ialog Image; 
PROCEDURE TTextDialog Image. Free; OVERRIDE; 

PROCEDURE TTextDialog Image. ChangeRefCountBy( delta: INTEGER); 
FUNCTION TTextD ialog Image. CursorAtf mouseLPt: LPoint): TCursorNumber, OVERRIDE; 
PROCEDURE TTextDialog Image. Drau; OVERRIDE; 

FUNCTION TTextD ialog Image. LaunchLayoutBox(vieu: TVieu): TImage; OVERRIDE; 
PROCEDURE TTextD ialog Image. MousePress( mouseLPt: LPoint); OVERRIDE; 
PROCEDURE TTextD ialog Image. Of fsetBy( del taLPt: LPoint); OVERRIDE; 
END; 

{ ... _ } 

TFrameSelect ion ■ SUBCLASS OF TSelection [the phony selection covering TextSelect ion in an input frame} 

input Frame: TInputFrame; {the input frame in which the selection occurs} 

FUNCTION TFrameSel ect ion. CREATE( object: TObject; heap: THeap; its Input Frame: TInputFrame) 

: TF rameSel ect ion; 

FUNCTION TFrameSel ect ion. CanDoCommandfcmONumber TCmdNumber, VAR check It: BOOLEAN): BOOLEAN; OVERRIDE; 

PROCEDURE TFrameSel ect ioa KeyChar(ch: CHAR); OVERRIDE; 

PROCEDURE TFrameSel ect ion. KeyEnter(dh, dv: INTEGER); OVERRIDE; 

PROCEDURE TFrameSel ect ion. KeyReturn; OVERR IDE; 

PROCEDURE TFrameSel ect ioa KeyTab( fBackuard: BOOLEAN) ; OVERR IDE; 

PROCEDURE TFrameSel ect ion. HousePress( mouseLPt: LPoint); OVERRIDE; 

PROCEDURE TFrameSel ect ion. Per formCommand( command: TCommand; cmdPhase: TCmdPhase); OVERRIDE; 

PROCEDURE TFrameSelect ion. Restore; OVERRIDE; 

END; {TFrameSel ect ion interface} 

TPlannerVieu ■ SUBCLASS OF TDialogVieu {a view uithin which images are laid out} 
{Variables} 
v ieuBe ingPl anned: TVieu; 



al 1 ouSketch ing: 
retainPiekedBox: 
cu r rent Layout Box: 



BOOLEAN; 
BOOLEAN; 
TLayoutBox; 



{for internal use of the layout mechanism} 



{Creation/Destruction} 
FUNCTION TPlannerVieu. CREATE( object: TObject; heap: THeap; it sVieuBeingPl armed TVieu; 

itsPanel: TPanel; itsAll ouSketch ing: BOOLEAN; itsRetainPickedBox: BOOLEAN): TPlannerVieu, 
PROCEDURE TPlannerVieu. In it( itsListOf Images: TList); 
FUNCTION TPlannerVieu. NeuLayoutBox( image: TImage): TLayoutBox; {return NIL if element not to be shown} 

PROCEDURE TPlannerVieu. Free; OVERRIDE; 

{Display} 
PROCEDURE TPlannerVieu. Drau; OVERRIDE; 

{House Tracking} 
FUNCTION TPlannerVieu. CursorAt{ mouseLPt: LPoint): TCursorNumber; OVERRIDE; 
PROCEDURE TPlannerVieu. NouseHove( mouseLPt: LPoint): OVERRIDE; 
PROCEDURE TPlannerVieu. HousePress( mouseLPt: LPoint); OVERRIDE; 
PROCEDURE TPlannerVieu. HouseRel ease; OVERRIDE; 

{Enumerat ion of components} 

PROCEDURE TPlannerVieu. EachActual Part (PROCEDURE DoToObject{ f ilteredObj: TObject)); OVERRIDE; 

END; 



TLayoutBox - SUBCLASS OF T Imaged! ith 10 



{Variables} 
man ipul ee: 
titleTab: 



T Image; 
TTitleTab; 



suppressDrau ingHan ipul ee: BOOLEAN; 



isResizable: 

borders: 

uoul drlakeSel ect ion: 

IsDraggabl e: 
should? rame: 

hasDreggee: 



BOOLEAN; 

Rect; 

BOOLEAN; 

BOOLEAN; 
BOOLEAN; 

BOOLEAN 



{client must directly set if not uanting default 'FALSE'} 



{Creation/Destruction} ,„ 4 .. .. _„_ 

FUNCTION TLayoutBox. CREATE( object: TObject; heap: THeap; baseExtent: LRect; its ID: S255; 



20 flikj 1984 ID: 54: 44 UDIHLOG. TEXT Page 7 

661 — itsParent: TLayoutBox; ItsVieu: TVieu; itshanipuler. T Image - , itsBerders: Reef, ! 

662 — itsResizable: BOOLEAN; itsSuppression: BOOLEAN; uithChildren: BOOLEAN): TLayoutBox; 

663— PROCEDURE TLayoutBox. Free; OVERRIDE; ! 

664 — , 

665 -- {Change and Display) 

666 — PROCEDURE TLayoutBox. ChangeDragSt at e( enter ingO rag; BOOLEAN); 

667 — PROCEDURE TLayoutBox. Cons iderMouse(mouseLPt: LPoint; VAR madeSel ect ion: BOOLEAN; 
666 -- VAR pickedLayoutBox: TLayoutBox); DEFAULT; 

669 ~ FUNCTION TLayoutBox. CursorAtfmouseLPt: LPoint): TCursorNumber, OVERRIDE; 

670 — PROCEDURE TLayoutBox. Draw; OVERRIDE; 

671 — PROCEDURE TLayoutBox. DrauJustMe; OVERRIDE; 

672 — PROCEDURE TLayoutBox. FreeManipulee; 

673— PROCEDURE TLayoutBox. Highl ight(highTrans it: THighTransit); 

674— PROCEDURE TLayoutBox. HousePress(mouseLPT: LPoint); OVERRIDE; 

675— PROCEDURE TLayoutBox. Move( del taLPt: LPoint); DEFAULT; 

676— FUNCTION TLayoutBox. NoT it leTab( heap: THeap): TTitleTab; 

677— PROCEDURE TLayoutBox. Of fsetBy( del taLPt: LPoint); OVERRIDE; 

678 — PROCEDURE TLayoutBox. Of fsetLayoutBoxByf del taLPt; LPoint; text ImageAsUell: BOOLEAN); DEFAULT; 

679— PROCEDURE TLayoutBox. RecalcEx tent; OVERRIDE; 

680— PROCEDURE TLayoutBox. Res ize(neuExtent: LRect); OVERRIDE; 

681 — PROCEDURE TLayoutBox. TabGrabbed; DEFAULT; 

682 — 

683 — END; 

684 — 

685 — TLegendLayoutBox > SUBCLASS OF TLayoutBox {mnipulee is a TLegend} 

686 — 

687 — textDialog Image: TTextDialog Image; 

688 — 

689 — {Creation/Destruction} 

690— FUNCTION TLegendLayoutBox. CREATEC ob ject: TObject; heap: THeap; itsVieu: TVieu; itsLegend TLegend 

691 — ): TLegendLayoutBox; 

692 — 

693— FUNCTION TLegendLayoutBox. CursorAtfmouseLPt: LPoint): TCursorNumber, OVERRIDE; 

694— PROCEDURE TLegendLayoutBox. Drau; OVERRIDE; 

695 — PROCEDURE TLegendLayoutBox. Of fsetBy( del taLPt: LPoint); OVERRIDE; 

696— PROCEDURE TLegendLayoutBox. Of f set Layout BoxBy( del taLPt: LPoint; text ImageAsWel 1 : BOOLEAN); OVERRIDE; 

697 — {use of the second argument is strange and non self-explanatory; comments in the internal 

698 — documentation may help. Nobody should be calling this old boy from outside, anyuay} 

699— PROCEDURE TLegendLayoutBox. HousePress(mouseLPT: LPoint); OVERRIDE; 

700— PROCEDURE TLegendLayoutBox. RecalcExtent; OVERRIDE; 

701 — 

702 — END; 

703 — 

704 — 

705 — TButtonLayoutBox - SUBCLASS OF TLayoutBox {manipulee is a TButtonJ 

706 — 

707 — {Variables} 

708 — nextSameSizedBox: TButtonLayoutBox; 

709 — oldLegendTopLeft: LPoint; 

710 — 

711 — {Creation/Destruction} 

712— FUNCTION TButtonLayoutBox. CREATE( object: TObject; heap: THeap; itsButton: TButton, 

713 — ItsVieu: TVieu): TButtonLayoutBox; 

714 — 

715 — {Other Methods} 

716— PROCEDURE TButtonLayoutBox. Cons iderhouseCmouseLPt: LPoint; VAR madeSel ect ion: BOOLEAN; 
717 — VAR pickedLayoutBox: TLayoutBox); OVERRIDE; 

718— FUNCTION TButtonLayoutBox. CursorAt(mouseLPt: LPoint): TCursorNumber; OVERRIDE; 

719— PROCEDURE TButtonLayoutBox. DrauJustMe; OVERRIDE; 

720— PROCEDURE TButtonLayoutBox. Of fsetBy{ del taLPt: LPoint); OVERRIDE; 

721— PROCEDURE TButtonLayoutBox. RecalcExtent; OVERRIDE; 

722— PROCEDURE TButtonLayoutBox. RecalcJustMe; 

723 — 

724 — END; 

725 — 

726 — 

727 — TTitleTab - SUBCLASS OF T Image 

728 — 

729 — layout Box: TLayoutBox; 

730 — legend: TLegend; 

731 — shoul dDrauLegend: BOOLEAN; {FALSE if string is too wide to fit} 

732 — 

733— FUNCTION TTitleTab. CREATE( object: TObject; heap: THeap; itsLayoutBox: TLayoutBox; itsHeight: INTEGER; 

734 — itsCaption S2S5): TTitleTab; 

735 — PROCEDURE TTitleTab. Free; OVERRIDE; 

736 — 

737— PROCEDURE TTitleTab. Drau-, OVERRIDE; 

738— PROCEDURE TTitleTab. 0ffsetBy( del taLPt: LPoint); OVERRIDE; 

739 — PROCEDURE TTitleTab. Res ize(neuExtent: LRect); OVERRIDE; 

740 — END; 

741 — 

742 — 

743 — TLayPickSelection > SUBCLASS OF TSelection 

744 — 

745 — {Variables} 

746 — layout Box: TLayoutBox; 

747 — 

748— FUNCTION TLayPickSel ect ion. CREATE( object: TObject; heap: THeap; itsVieu: TPlannerVieu; 

749— itsKind: INTEGER; itsLayoutBox: TLayoutBox; itsAnchorLPt: LPoint): TLayPickSelection; 
750 — s 

751— FUNCTION TLayPickSel ect ioa CanDoCommand(cmdNumber TCmdNumber, VAR check It: BOOLEAN) 
752 — : BOOLEAN; OVERRIDE; 

753— PROCEDURE TLayPickSelection Deselect; OVERRIDE; *„...„. 

754— PROCEDURE TLayPickSelection. Highl lght(highT rans it: THighTransit); OVERRIDE; 
755 — PROCEDURE TLayP ickSel ect ion. KeyClear; OVERRIDE; 

756— PROCEDURE TLayPickSelection MouseMove(mouseLPt: LPoint); OVERRIDE; 

757— PROCEDURE TLayPickSel ect ion MouseRel ease; OVERRIDE; 

758 — PROCEDURE TLayPickSel ect ion Restore; OVERRIDE; 

759 — 

760 — END; 

761 — 

762 — 

763 — TLayMoveCmd ■ SUBCLASS OF TCommand 

764 — 

765 — {Variables} 

766 — layout Box: TLayoutBox; 

767 — 

768 — hOffset: LONG INT; 

769 — vOffset: LONGINT; 



770 
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771 — {Creation} 

772— FUNCTION TLayHoveCmd. CREATE( object: TObject; heap: THeap; ttsLayoutBox: TLayoutBox; 

773 — ItsHOffset, itsVOffset: LONGINT): TLayHoveCmd; 

774 — 

775 — {Command Execut ion} 

776— PROCEDURE TLayHoveCmd. Perform(cmdPhase: TCmdPhase) ; OVERRIDE; 

777 — 

778 — END; 

779 — 

780 — TEdittegendSel ect ion - SUBCLASS Of TSelection 

781 — . 

782 — {Variables} 

783 — - legendLayoutBox: TLegendLayoutBox; 

784 — host Legend: T Legend; 

785 — textDialog Image: TTextDialog Image; 

786 — suppressHost: BOOLEAN; 
787— tripleClick: BOOLEAN; {»SW*} 
788 — 

789 — {Creat ion /Destruction} 

790— FUNCTION TEd it LegendSel ect ion. CREATE( object: TObject; heap: THeap; itsLegendLayoutBox: 

791 — TLegendLayoutBox: itsAnchorLPt: LPoint): TEditLegendSelect ion; 

792— FUNCTION TEditLegendSelect ion. CI one( heap: THeap): TObject; OVERRIDE; 

793— PROCEDURE TEditLegendSelect ion. Deselect; OVERRIDE; 

794 — PROCEDURE TEditLegendSelect ion. Free; OVERRIDE; 

795 — 

796 — {Udders} 

797— FUNCTION TEditLegendSelect ion. CanDoCo«mand(cmdNumber. TCmdNumber; VAR check It: BOOLEAN) 
798 — : BOOLEAN; OVERRIDE; 

799— PROCEDURE TEditLegendSelect ion KeyBackf fWord: BOOLEAN); OVERRIDE; 

800— PROCEDURE TEd itLegendSel ect ion. KeyChar(ch: CHAR); OVERRIDE; 

801— PROCEDURE TEditLegendSelect ion. KeyEnter(dh, dv: INTEGER); OVERRIDE; 

802— PROCEDURE TEditLegendSelect ion. KeyRetum; OVERRIDE; 

803— PROCEDURE TEd itLegendSel ect ion. MouseMove( mouseLPt: LPoint): OVERRIDE; {♦SW*} 

804— PROCEDURE TEd itLegendSel ect ion. MousePress{ mouseLPt: LPoint); OVERRIDE; {♦SW-} 
805 — PROCEDURE TEditLegendSelect ion. MouseRel ease; OVERRIDE; {*SU*} 

806— FUNCTION TEd itLegendSel ect ion. NeuCommand( cmdNumber TCmdNumber): TCommand; OVERRIDE: 

807 — PROCEDURE TEditLegendSelect ion. PerformCommand( command: TCommand; cmdPhase: TCmdPhase); OVERRIDE; 

808— PROCEDURE TEditLegendSelect ion. Restore; OVERRIDE; 

809— PROCEDURE TEditLegendSelect ion. Reveal { ashuchAsPoss ibl e: BOOLEAN); OVERRIDE; 

810 — 

811 — END; 

812 — 

813 — 

814 — TDialogDesignWindou - SUBCLASS OF TDialogWindou 

815 — 

816 — hostWindou: TWindou; 

817 — hostDialogVieu: TDialogVieu; 

818 — fromDialogBox: BOOLEAN; 

819 — 

820— FUNCTION TDialogDesignWindou. CREATE( object: TObject; heap: THeap; 

821 — itsHostDialogVieu: TDialogVieu): TDialogDesignWindou; 

822 — 

823— FUNCTION TDialogDesignWindou. CanDoCommand( cmdNumber TCmdNumber; VAR check It: BOOLEAN) 
824 — : BOOLEAN; OVERRIDE; 

825— FUNCTION TDialogDesignWindou. NeuCommand( cmdNumber. TCmdNumber): TCommand; OVERRIDE; 

826— PROCEDURE TDialogDesignWindou. Rel inquishControl; 

827— PROCEDURE TDialogDesignWindou. Res ize( moving: BOOLEAN); OVERRIDE; 

828— PROCEDURE TDialogDesignWindou. SeizeControl; 

829 — 

830 — END; 

831 — 

832 — 

833 — 

834 — { classes implemented in file UDialog4 } 

835 — 

836 — 

837 — TStdPrintHanager - SUBCLASS OF TPrintManager 

838 — 

839— FUNCTION TStdPrintHanager. CREATE( object: TObject; heap: THeap): TStdPrintHanager, 
840 — 

841— PROCEDURE TStdPrintHanager. EnterPageEditt ing; OVERRIDE; 

842— PROCEDURE TStdPrintHanager. In it( itsHainVieu: TVieu; itsDfltHargins: LRect); OVERRIDE; 

843— PROCEDURE TStdPrintHanager. ReactToPrinterChange; OVERRIDE; 

844— PROCEDURE TStdPrintHanager. SetDfltHeadings; OVERRIDE; 

845 — 

846 — END; 

847 — 

848 — TLegendHeading - SUBCLASS OF THeading 

849 — 

850 — masterLegend: TLegend; 

851 — currentLegend: TLegend; 

852 — 

853 — topToBasel ine: INTEGER; {offset from box top to baseline} 

854 — borders: Rect; {size by which box exceeds legend s extent} 

855 — 

856 — {Creation/Destruction} 

857— FUNCTION TLegendHeading. CREATE( object: TObject; heap: THeap; itsPrintHanager. TPrintHanager; 

858 — itsStrina S255; itsTypeStyle: TTypeStyle; 

859 — it sPageAl ignment: TPageAl ignment; itsOffsetFromAl ignment: LPoint; 

860 — itsBorders: Rect): TLegendHeading; 

861 — PROCEDURE TLegendHeading. Free; OVERRIDE; 

862 — 

863 — {Nyingine} , 

864— PROCEDURE TLegendHeading. Ad justForPagefpageNumber. LONGINT; editing: BOOLEAN); OVERRIDE; 

865— PROCEDURE TLegendHeading. Draw; OVERRIDE; 

866— FUNCTION TLegendHeading. LaunchLayoutBoxfvieu: TVieu): T Image; OVERRIDE; 

867— PROCEDURE TLegendHeading. Of fsetByf del taLPt: LPoint); OVERRIDE; 

868— PROCEDURE TLegendHeading. RecalcExtent; OVERRIDE; 

869— FUNCTION TLegendHead ing. Shoul dF rame: BOOLEAN; OVERRIDE; 

870 — 

871 — END; 

872 — 

873 — 

874 — TPageDesignWindou > SUBCLASS OF TD ial ogW indou 

875 — , 

876 — hostVieu: TVieu; {the vieu uhose pages are being designed in this dialog} 

877 — layoutPanel: TPanel; {my control Panel is the status panel} 

879— FUNCTION TPageDesignWindou. CREATE( object: TObject; heap: THeap; itsHostVieu: TVieu): TPageDesignWindou; 
880 — 
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TCmdNumber): TCommand; OVERRIDE; 



PROCEDURE TPageDes igntal indou. Disappear, OVERRIDE; 
FUNCT ION TPageDes ignW indou. NeuCommandf cmdNumber 

END; 

TPagePlannerViau ■ SUBCLASS OF TPlannerVieu 

FUNCT JON TPagePlannerVieu. CREATEf object: TObject; heap: THeap; it sPrint Manager TPrint Manager; 
r itsPanel: TPanelj: TPagePlannerVieu; 

PROCEDURE TPagePlannerVieu. Drau; OVERRIDE; 

END; 

TPageStatusDialog - SUBCLASS OF TDialog 
currant Heading: THeading; 



oddEvenCl uster 
minPageF raffle: 
maxPageF rame: 
al igncl uster 
unitsCl uster 
marginTitle: 

leftCl uster. 
topCl uster 
right CI uster. 
bottomCl uster 



TCI uster. 
T Input Frame; 
T Input Frame; 
TCI uster 
TCI uster, 
TLegend; 

TCI uster, 
TCI uster 
TCI uster 
TCI uster 



{Creat ion/Destruct ion} 
FUNCTION TPageStatusDialog. CREATE( object: TObject; heap: 



THeap; itsPanel: TPanel): TPageStatusDialog; 



{Sonst} 
PROCEDURE 
PROCEDURE 
FUNCT ION 
PROCEDURE 
PROCEDURE 

PROCEDURE 

END; 



TPageStatusDialog. Butt onPushedf button: TButton); OVERRIDE; 

TPageStatusDialog. CheckboxH it (checkbox: TCheckbox; toggleDi ract ion: BOOLEAN); OVERRIDE; 

TPageStatusDialog. DounAt(mouseLPt: LPoint): TDialoglmage; OVERRIDE; 

TPageStatusDialog. Drau; OVERRIDE; 

TPageStatusDialog. InspectHeadingParmsf VAR oddOnly, evenOnly: BOOLEAN; 

VAR pageAl ignment: TPageAl ignment; VAR minPage, maxPage: LONG INT); 
TPageStatusDialog. Set Head ingParmsroddOnly, evenOnly: BOOLEAN; 

pageAl ignment: TPageAl ignment; minPage, maxPage: L0NGINT); 



TPageLayoutBox » SUBCLASS OF TLayoutBox 



{Creat ion/Dest ruct ion} 
FUNCTION TPageLayoutBox. CREATEf object: TObject; heap: THeap; 
itsResizable: BOOLEAN): TPageLayoutBox; 

PROCEDURE TPageLayoutBox. FreeMan ipul ee; 0VERR IDE; 
PROCEDURE TPageLayoutBox. TabGrabbed; OVERRIDE; 
END; 



TLgHdngLayoutBox - SUBCLASS OF TPageLayoutBox 

I egendLayoutBox: TLegendLayoutBox; 

FUNCTION TLgHdngLayoutBox. CREATE( object: TObject; heap: THeap; itsVieu: TVieu; 
itsLegendHeading: TLegendHeadingJ: TLgHdngLayoutBox; 

FUNCTION TLgHdngLayoutBox. CursorAtfmouseLPt: LPoint): TCursorNumber OVERRIDE; 

PROCEDURE TLgHdngLayoutBox. Drau; OVERRIDE; 

PROCEDURE TLgHdngLayoutBox. MousePress(mouseLPT: LPoint); OVERRIDE; 

PROCEDURE TLgHdngLayoutBox. Move( del taLPt: LPoint); OVERRIDE; 

PROCEDURE TLgHdngLayoutBox. Recal cExtant; OVERRIDE; 



itsViau: TVieu; itsHeading: THeading; 



END; 



VAR 



stdFrameBorders: 

stdHdngBorders: 

stdHdngTypeStyle: 

stdlDSordars: 

std Input TypeStyla: 

stdFrmeOffset: 

stdLabel Offset: 


Ract; 

Ract; 

TTypaStyla, 

Rect; 

TTypeStyle; 

Point; 

Point; 


stdPlainBorders: 


Rect; 


stdThinBorders: 
titlaTypeStyle: 
(NB: Ail the above are 


Ract; 

TTypeStyle, 
initial ized 



extra space around an input- frame and its text} 
extra space around a standard heading} 
tile 12 monospaced, normal faces, for titles} 
a title tab uith string, and a small border on the other 3 sides} 
std input font /faces} , 

std distance between input frame's prompt and input rect} 
offset from top-left comer of a checkbox to leftmost pt of 
baseline of label} 

{a slim captionl ess title tab, and a small border on the other 
3 sides} _, n 

{a slim captionless title tab above; no other borders} 
{tile 15 monospaced, for titles of layout boxes} 
in the creation block of TDialogU indou} 

stcfiuttonrtetrics: TButtonMetrics; {re initial ized in TDialog. CREATE each time} 

{Unit-Global Procedures} 

FUNCTION NeuStdDialogWindou(heap: THeap; itsHeight: INTEGER; itsKeyResponse, itsHenuResponse, 
itsDounlnMainUindouResponse: TDiResponse): TDialogW indou; 
{sets up a standard, nonresizable, dialogMindow, and installs a single Panel into it, into 
which it installs a single DialogVieu} 

FUNCTION NeuStdLegend(heap; THeap; itsChars: S255; itsXLoc, itsYLoc: LONGINT; itsVieu: TVieu; 
itsTypeStyle: TTypeStyle): TLegend; 

FUNCTION NeuSysLegend(heap: THeap; itsChars: S255; itsXLoc, itsYLoc: LONGINT; itsVieu: TVieu): TLegend; 

PROCEDURE SetParaExtent( paragraph: TParagraph; vieu: TVieu; location: LPoint; VAR extentLRect: LRect); 

PROCEDURE LRect AddBorders(baseLRect: LRect; borders: Rect; VAR resultLRect: LRect); 

PROCEDURE GetTextAndLocation(phraseNumber INTEGER; VAR itsChars: S255; VAR itsLocatlon: LPoint); 
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991 

992 

995 

994 

1 

2 

995 

1 

2 

996 

1 

2 

997 

998 

999 



IMPLEMENT AT ION 

{$1 LIBTK/UDialog2} {dialogs} 

{$1 LIBTK7UDialeo3} {layout) 

{91 LIBTK/UDialog4} {page margins} 



1 1000 
1 1001 
1 1002 
1 1003 
1 1004 
1 1005 
1 1006 



$1 U0ialog2} {dialogs} 

$1 UDialog3' {layout} 

SI UDialog4j {pag« margins} 

END. {unit UDialog} 
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1. libtk/udialog. TEXT 

2. LIBTK/UDialog2. TEXT 

3. LIBTK/UDialog3. TEXT 

4. LIBTK/UDialog4. TEXT 



AbandonThat But t o 

abshinWidth 

Act ivateDialog 

Act ivate Image 

AddAl ignedCheckb 

AddBigf reeCbeckb 

AddButton ~ 

AddCancal Button 

AddCheckbox 

AddOialog 

AddF reeCheckbox 

Add Image 

Add Input F ram 

AddNeuDialog 

AddOKButton 

AddRouOfBoxes 

AddStdButton 

AddStdCIuster 

AddStdFreeCheckb 

AddStdlnputFrame 

AddStdLegend 

AddSysLagend 

AdJustForPage 

al ignClustar 

allouSkatching 

Appear 

-B- 
BeDismissed 
borders 
bottomCluster 
boxAt Creation 
BringToFront 
buttonMetrics 
ButtonPushed 

-C- 
CanDoCommand 
ChangeDragState 
ChangeLabel 
ChangeRef Count By 
ChangeString 
ChangeToPhrase 
CheckboxHit 
children 
CI one 
cmdNumber 
ComeForuard 
Considertlouse 
Control Hit 
cont rol Panel 
CREATE 



currentDial oglma 

currentHeading 

cu rrent Layout Box 

current Legend 

CursorAt 

curvH 

curvV 

-D- 
de fault But ton 
Oelete Image 
Desel ect 
dialogVieu 
Disappear 
DounAt 
Orau 

drauHitLRect 
drau Input LRect 
Orau Just He 

-E- 
EachActualPart 
EachVirtualPart 
EnterPageEdittin 
•xpandOen 
•xpandNum 

-F- 
Free 

FreeHanipulee 
fronCialogBox 

-G- 
GetBoxRight 
Get Contents 
GetString 
Get Text AndLocati 

-H- 
hasDraggee 
Has Id 
HaveVieu 
height 
Highl ight 
hiLitBox 
Hit 

hitBox 
hitButton 
hOffset 



183- 
97* 
2?1- 
228* 
455- 
354- 
348- 
338* 
456- 
leg- 
SSI- 
227- 
359- 
170- 
337- 
356- 
335* 
339- 
340' 
341- 
343- 
345- 
864- 
904- 
613- 
127- 



128* 
473* 
911« 
541* 
229* 

381' 
184* 



129* 
666* 
412* 
578* 
522* 
521* 
185* 
243 
249* 
376 
230* 
667* 
217* 
117 
122* 
543* 
772* 
147* 
899 
615* 
851* 
193* 
89-( 
90* 



149- 
231- 
753- 
118* 
130* 
218- 
194- 
670- 
476- 
475* 
220- 



195* 

259- 

841- 

95- 

94- 



166* 
672« 
818« 



527- { 
492- 
S23-{ 
990-? 



657- 
233- 
261- 
88- 
389- 
429- 
459- 
428- 
150- 
768- 



253-( 1) 

252-( 1) 
446- ( 1) 



651-( 1} 854-( 1) 

254- ( 1) 

320-( 1) 917-( 1) 

595-( 1) 751-( 1) 797*( 1) 823*( 1) 



321-( 1) 
792-( 1} 



716-( 1) 

323-( 1) 

164-( 1) 

557*1 1) 

790-( 1) 



918*( 1} 



214-( 1) 247-( 
573*( 1) 592* 
820- ( 1} 839 



408- 
690- 
889 



432*( 1) 
712*( 1) 
914-C 1) 



480« 
733- 
932 



1} 515*( 1) 
1) 748* 1) 
1) 944* ( 1) 



255-( 1} 413-£ 1) 497-( 1) 579*( 1) 629*( 1} 669-( 1) 693*( 1) 718*( 1) 947*( 1) 



256-f 1} 



793* 



881-( 1) 

365-( 1) 919- 

219- ( 1) 257* 

694-( 1) 737- 



414 
865 



•( 1) 498-( 1) 526-f 1) 547-f 1) 560*( 1) 580*( 1) 626-( 1) 
•( 1) 892*( 1) 920-( 1) 948-( 1) 



388-( 1) 671-( 1) 719*( 1) 
232-( 1) 258-( 1) 635-( 1) 



250-( 1) 517-( 1) 545-( 1) 576-( 1) 623-( 1) 663-( 1) 735-( 1) 794-( 1) 861-( 1) 
935-( 1) 



260-( 1) 

673-( 1) 754-( 1) 
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nostDialogView 817* 

hostLegend 784* 

hostVieu 876 

host Window 816 



I- 



id 

IDLength 

idNumber 

In it 

inputFrame 

input TypeSt vie 



244* 

84 

245' 

6*3" 

590 

478- 



842*( 1) 



InspectHeadingPa 921 

INTRINSIC ™ 16* 

isAct ive 209* 

isDraggable 654* 

isEditable 210* 

isHighl ighted 378* 

isRes izabl a 650* 

isSal acted 403 

isShouing 151* 

-K- 

kay 103- 

KayBack 799- 

KayChar 596* 

KeyClear 755* 

KeyEnter 597* 

KeyRetum 598* 

KeyTab 599* 

-L- 

I astBox 430- 

LaunchLayoutBox 221* 

layoutBox 729 

layout Panel 877* 

leftCluster 908* 

1 agend 380* 

legendLayoutBox 783 

1 ocat ion 427 

LPoint 427 

LRact 145 

LRectAddBorders 988* 

■M- 

magnet Cursor 160* 

mainOialog 119* 

man ipul ee 645 

marginTitle 906* 

masterLegend 850 

max Input Chars 477* 

maxPageFrame 903* 

minPageFrame 902* 

minttidth 377* 

mouse IsDoun 159* 

Mousahove 196* 

MousaPrass 197* 
804- 

HousaRel ease 198* 

Hove 675* 

-N- 

NauAl ignedCheckb 442* 

NeuButton 301* 

NeuCheckbox 443* 

NeuCluster 304* 

NeuCommand 133- 

NeuFreeCheckbox 306* 

Neu Input Frame 309* 

NeuLayoutBox 621* 

NeuLegend 314* 

NeuRouOfBoxas 316* 

NeuStdD ial ogU ind 976* 

NeuStdLegend 981* 

NeuSysLegend 984* ( 

naxtSameSizedBox 708 

next SameS izedBut 379* 

nonOialogExtent 145* 

NoTitleTab 676- 



800- ( 1) 

801-( 1} 
802*( 1} 



262*( 1) 390*( 1) 415*( 1) 
746 ( 1) 766 ( 1) 



406*( 1) 730*( 1) 

942 { 1} 

510 ( 1) 

510 ( 1) 709 ( 1) 



499*( 1) 528*( 1) 561*( 1) 581*( 1) 866*( 1) 



630* 
391* 
949- 
392* 

950* 



756*( 1) 803*( 1) 

416«( 1) 460*( 1) 500*( 1) 582*( 1) 600*( 1) 631*( 1) 674*( 1) 699-( 1) 

632*( 1) 757*( 1) 805*( 1) 



806*( 1) 825*( 1) 882*( 1) 



-0- 



ObjactUithlDNunb 234* 

ObjUithld 235* 

oddEvonCl ustar 901* 

OffSetBy 265* 

Offset By 529* 

OffsetLayoutBoxB 678- 

ol dLegendT opLe ft 709* 



263 
264 



n 



583*( 1) 677*( 1) 695*( 1) 720*( 1) 738*( 1) 867*( 1) 
696* ( 1) 



-P- 



paintFreeBoxes 153* 

paintSanse 154" 

paragraph 511* 

parent 208 

PenState 98 

penStata 98' 

Perform 776« 

ParformCommand 601' 

PicHandle 540 

picture 540 

Point 962 

PrepareToAppear 222' 

prompt 471' 

PushButton 186' 



-0- 
QuickOrau 27-( 1) 

-R- 
ReactToPrinterCh 843-( 1) 



555 f 1) 
555 ( 1) 


807- ( 


1) 


963 ( 


1) 


324- ( 


1) 
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RecalcExtent 199* 
868* 

RecalcJusthe 722* 

Recompute 394* 

Rect A73 

met Image 405' 

re f Count 571* 

Rel InquishContro 826* 

RemoveOialog i72* 

ReplaceOialog 173* 

Replace Image 2B6* 

Res ize 6i0* 

Restore -£- 602* 

retainPickedBox 614* 

Reveal 809* 

rightCluster 910* 

root Dialog 143 
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-s- 



S4 

SeizeControl 

Select Box 

Select Input Frame 

Set Default But ton 

Set D fit Headings 

Set Head ingParms 

SetParaExtent 

shoul dOrauLegend 

ShouldFrame 

shoul dFrame 

startedPaint ing 

stdButtonMetrics 

stdFrameBorders 

stdFrmeOffset 

stdHdngBorders 

stdHdngTypeStyle 

stdlDBorders 

stdlnputTypeStyl 

stdLabel Offset 

stdPlainBorders 

stdThinBorders 

St 11 1 MyMouse 

STRING 

stringKey 

stylesheet 

Suppl ant Cont ent s 

suppressDrau ingH 

suppressHost 



TabGrabbed 

TButton 

TButtonLayoutBox 

TButtonMetrics 

TCheckBox 

TCheckbox 

TCluster 

TCmdNumber 

TCommand 

TCursorNumber 

TDialog 
TDialogBox 
TDialogDesignUin 
TDialog Image 

TDialogVieu 
TDialogUindou 
TEditLegendSelec 
textDialog Image 
text Image 
TFrameSelect ion 
THead ing 
Tld 
T Image 

TImageUithID 

TInputFrame 

t itleTab 

titleTypeStyle 

TLayHoveCmd 

TLayoutBox 

TLayPickSelectio 

TLegend 

TLegendHeading 

TLegendLayoutBox 

TLgHdngLayout Box 

TLlst 

TObject 



Toggle 
topul i 



topcluster 

topToBasel ine 

TPageDesignWinde 

TPageLayoutBox 

TPegePl annerV ieu 

TPageStatusD ial o 

TPanel 

TParagraph 

TPicObject 

TPlannerVieu 

TPrlnt Manager 

TRect Image 

tripled Ick 

trueKey 

TSel ect ion 

TStdPrintHanager 

TStringKey 

TStyleSheet 



82- 
828- 
449- 
325- 

187-( 
844* 
923* 
986* 
731* 
869* 
655- 
155* 
971* 
957" 
962* 
958* 
959* 
960- 
961* 
963* 
965* 
967* 
224* 
82 
277 
157- 
493- 
648- 
786- 



681" 

149 

705- 

86- 
307 
352 
304 
909 
376 
133 
160 
718 
119 
115 
814- 
147 
365 
118 
115- 
780- 
470 
569 
588* 
848 

84- 
206 
727 
241- 
312 
646* 
968* 
763- 
615 
745- 
314 
850 
848- 
685* 
940- 
243 
249 
417- 
909- 
853- 
874- 
928- 
887- 
897- 
117 
511 
538- 
607- 
837 
405 
787- 
102* 
588 
837 
101 
157 



223*f 1) 266-( 1) 366-( 1) 393-( 1) 501-( 1) 530-( 1) 679-( 1} 700-( 1) 721«( 1) 



951 



541 ( 1) 651 ( 1) 854 ( 1) 957 ( 1) 958 ( 1) 960 ( 1) 965 ( 1) 967 { 1) 



267- ( 1) 

739- f 1) 827- ( 1) 

758-( 1) 808-( 1) 

103 ( 1) 

326-( 1) 



268 



68* ( 1) 
84 ( 1) 



936- 

150 

708 

381 

340 

354 

317 

910 

763 
176 
947 
143 

821 

206- 

508 

141- 

124 

791 

687 

593 

899 
244 
221 
866 
248 
342 



) 773 


f *) 


621 


1 


749 


1 


344 


1 


851 


1 


860 


1 


691 


1 


945 


1) 



792 ( 1) 



879 ( 1) 

933 ( 1) 

890 ( 1) 

914 ( 1) 

877 ( 1) 



544 
619 



ID 



39S*( 1) 461-( 1} 502*( 1) 



) 302 ( 


1) 


) 713 


1 


) 971 


1 


) 430 


1 


} 401- 


1 


} 339 


1 


) 911 ( 


1) 



336 ( 1) 349 ( 1) 374-( 1) 379 ( 1) 386 ( 1) 



410 
357 



( 1} 428 ( 1) 429 f 1) 442 f 1) 445 f 1) 455 f 1) 
( 1) 423-( 1) 433 ( 1} 901 ( 1) 904 ( 1) 905 ( 1) 
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806 
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882 { 1} 
413 { 1) 



497 ( 1) 579 ( 1) 629 ( 1) 669 ( 1) 693 ( 1) 



170 ( 1) 275- ( 1) 281 ( 1) 897 ( 1) 




1) 218 ( 1) 234 ( 1) 235 ( 1) 241 ( 1) 263 ( 1) 264 ( 1) 

1J 

1} 817 ( 1} 

1) 977 ( 1) 



785-( 1) 



262 ( 1) 390 ( 1) 415 ( 1) 499 ( 1) 528 ( 1) 561 ( 1) 581 ( 1) 645 ( 1) 

567 ( 1) 642 ( 1) 
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363 



( 1) 374 ( 1) 401 ( 1) 423 ( 1) 468 ( 1} 538 ( 1} 
( 1) 468-( 1) 484 (1) 590 ( 1) 902 ( 1) 903 ( l) 



642-( 1) 662 ( 1) 685 ( 1) 705 (1) 729 ( 1) 746 ( 1) 766 ( 1) 928 ( 1) 

345 ( 1) 380 ( 1) 406 { 1} 471 ( 1) 508-( 1) 516 ( 1) 730 ( 1} 784 ( 1) 

906 ( 1) 982 ( 1) 984 ( 1) 

783 ( 1) 942 (1) 



940 ( 1) 



887 ( 1) 



553-( 1) 558 ( 1) 



743 ( 1) 780 ( 1) 
839 ( 1) 
277 ( 1) 
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TTextDialog Image 470 

TText Image 569 

TTitleTab 646 

TTypeStyle 92 

TVieu 141 

TWindou 816 

typeStyle 92* 

-U- 

UABC _ ~*0' 

UDialog T 

UOialogVersion S6* 

UDrau . 28* 

UFont ~ 25- 

unitsCluster 90S* 

UObject 23" 

usesSysFont 513" 

UText 32- 

UTKUniversalText 31* 



vieuBeingPlanned 611 ( 

vOffset 769*( 

uithlO 211-( 

uouldBeDraggable 512* 

uoul dHakeSel act i 652* 



XCursorAt 


176 


XOrau 


177 


XMouseMove 


179 


XMousePress 


178 


XHouseRel ease 


180 



567»( 1) 575 ( 1) 687 ( 1) 785 ( 1) 

968 ( 1) 



676 f 1) 727 
478 ( 1) 959 
611 ( 1) 876 



734 
961 



570»( 1) 



►• End Xref: 305 id's 657 references (417544 bytes/4694 id' s/42805 refsl 



